S i ‘i C L A | =| Every month £1.75 Mar 
| aT 41 py NRT 
Ht 


iG te 1$ 26 
96 30 36 46 


WORLD 


MULTIBASIC 


Now the QL ca | 


keep more in the 
air than ever befare 


OFTWAR e 
FILE: 


SUPERBASIC 


USING io 
FLASHBACK feeeeen 
PROG 

OF THES. 
MONTE 


ft : 


Wye 


\ iy “ISSN 04951- i 


= lil Wi 


770951°933009 


Editor 
Helen Armstrong 


Chief Sub Editor 

Harold Mayes MBE 

Production Manager 

Nick Fry 

Designer 

Chris Winch 

Advertising Sales 

Jason Newman 

Magazine Services 

Sheila Baker 

Advertising Production 

Michelle Evans 

7 nts Advertising 
anager 

Claire Baxter 

Group Editor 

Carlo Jolly 


Publisher 
Perry Trevers 


erty, Sa Director 


Financial Director 
Brendan McGrath 


Chief Executive 
Richard Hease 
Microdrive Exchange 
089 283 4783/2952 
(2 lines) TIL 


Sinclair QL World 
Greencoat House 
Francis Street 
London SW1 1DG 
Telephone 01-834 1717 


Fax 01-828 0270 

Telex 9419564 FOCUS G 
ISSN 026806X 

Unfortunately, we are no 

able to answer by 


, or 
We will do our best to deal wity 
pet Broun magazine, 
though we cannot guarantee 


Back inones ove available from the 
ee ateter cite £2.75 
Overseas 


Court, 
Essex. Tel: (0268) 591110. 
Ltd. 


Binclsie World is published on 
eo Ree. Nocera pers 


Faas: 


ME OL SCENE @ European Alternative Micro Show 
EN OPEN CHANNEL @ Financial news 
SOFTWARE FILE @ MusiQL again 
SOFTWARE FILE @ SBMon 
18 | TROUBLESHOOTER @ Better software and hardware 
[EX] SUPERBASIC @ The QL Character Set 
ER Diy TOOLKIT @ MultiBasic 
30 | USING FLASHBACK 2 @ And converting from Flashback 1 
DIRECT LINES @ Computer station 
[EQ THE PROGS @ Plant Life, Reverse Polish Calculator 
SUBSCRIPTION INFORMATION 
EEN SOFTWARE FILE @ Turbo Quill 
48 | MICRODRIVE EXCHANGE @ Still going strong 


NEXT 
MONTH 


SOFTWARE FILE: 
HERE WE GO 


An adventure in football 
— match postponed till 
next month. 


FANCY STUFF 
PART 2 


Now the longest-running ‘next 
month’ since the Artist of the 
Year, 1988. 


AN ALTERNATIVE SHOW 


The First Alternative Euro- 
pean Microcomputer Show will 
take place on Saturday April 
28, 1990 at the Burgerhalle 
Seehein-Jugenhein, Bahnhof- 
strasse, Ortsteil Jugenheim, D- 
6104 Seeheim-Jugenheim, 
West Germany. The show, 
which is scheduled to run from 
10am to 6pm, is expected to 


CHECKMATE 


|}Joris Van Domme of Tron 
Software contacted QL World 
to inform readers that two bugs 
had appeared in QL 
SuperDAM, reviewed in last 
month’s issue, as a result of late 
changes. The first bug relates 
to the screen dump facility and 
the second appears as a weak- 
ness in the computer’s play 
when the human opponent is 
poised to take the king. 

The bugs have been cor- 
rected in V2. Any queries 
about the program should be 
directed to Joris Van Domme, 
Tron Software, Lindenlaan 10, 
9370 Lebbeke, Belgium. 

Tron Software is apparently 
about to release a sub- 
directory system for floppy and 
hard discs, including such 
facilities as FIND and a fast 
copy command, 


Despite constant talk of the 
‘declining QL market’, QL 
World is showing a current 
firm sale figure of 12,400 - 
which is more than many spe- 
cialist magazines in ‘stable’ 
markets. The QL market is not 
| declining — it is refining. 
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feature Sinclair, Acorn, 
Tandon, Cambridge Compu- 
ters, Oric, Psion, MSX, 
Amstrad/Schneider and other 
‘alternative’ machines. The 
promoter is Thornado Sys- 
tems. 

A show guide will be 
available on the door — priced 
DM1, 35 pence - and 


EDITED BY RICHARD ALEXANDER 
PUBLISHED BY C.G.H. SERVICES 


CENEI 


exhibitors are being encour- 
aged to take advertisement 
Pages in the A5-size guide fora 
modest fee. A profile of up to 
200 words of each exhibitor will 
also be published free in the 
guide. Registration forms and 
information for exhibitors are 
available from the organiser. 
Tickets will cost DM5, £2 in 
advance or DM7,50, £2.50 on 
the door. Children under 14 
and any members of the 


OL 
TECHIICAL 
REVEL 


PROGRAMME EVOLUTION (PIPES AND FILTERS) 
- LATEST VERSION - REVIEW 


Q. LIBERATOR 
PC EMULATORS FOR THE Ql 
QUEST SYSTEMS - PLEAS FOR HELP 
HELPLINE 


AND BUSINESS PROGRAMS FOR THE OL 


FINANCE 

ARK"S THE SPY - REVIEW 

BITS AND PIECES . 
MINERVA ROM - FIRST IMPRESSIONS 


REVIEW 


The second edition of QOL 
Technical Review from CGH 
Services contains artcles on 
evaluating QL _ software, 
Mandelbrots and pipes, 
information about TexTidy 
from John Silk of PDQL, anda 
review of Q-Liberator V3,22 


and The Spy Editor, as well as 
several shorter articles. 

QL Technical Review costs 
£1.25 for one issue, £5 for four 
issues, from CGH _ Services, 
Cwm Gwen Hall, Pencader, 
Dyfed, Cymru SA39 9HA. Tel: 
055 934 574, 


@ 


Thornado Systems Club can 
enter free, Registration forms 
and further information can be 
obtained from Thor Daten- 
systeme, Kaninostrasse 25, D- 
6100 Darmstadt, West Ger- 
many. A small map and travel 
information is included in the 
registration documents. Infor- 
mation about accommodation 
and hotel bookings is available 
on request. 


SCOTLAND’S 
QL USER 


GROUP 


The Scottish QL Users’ Group 
has been in existence for six 
months, having been formed to 
provide a Scottish forum for 
the exchange of ideas 
concerning the QL. The group 
places an important emphasis 
on meetings, as there are few 
organised opportunities for OL 
users to get together north of 
the border. 

The club’s current venue is a 
village hall near Edinburgh but 
it also hopes to set up meetings 
in the West of Scotland if there 
is sufficient interest. 

Activities at meetings 
include demonstrations and 
informal talks on all aspects of 
QL computing, as well as 
problem-solving and the 
occasional games-playing ses- 
sion. A monthly newsletter 
keeps members up-to-date on 
the activities of the group. 

QL users wishing to join the 
group or request further 
information can contact Alan 
Pemberton, enclosing a 
stamped self-addressed 
envelope, at 65 Lingerwood 
Road, Newtonegrange, Mid- 
lothian, Scotland EH22 4QQ. 


PEN QHANNEL 


Open Channel is where you have the 
opportunity to voice your opinions in Sinclair 
QL World. Whether you want to ask for help 
with a technical problem, provide somebody 


This is a simple program I 
wrote while working on a horse 
racing program. The program 
requires data about jockeys, 
trainers and courses to be input 
into a Psion program and then 
exported to SuperBasic. 

As SuperBasic lacks an 
IMPORT command, I wrote 
my own. To use it, type: 


IMPORT “mdv__file__exp” 
TO “mdv2__file_dat” 


Here is the listing. It has been 
IMPORTed from Basic, so 
there should be no errors: 


100 DEFine PROCedure 
IMPORT (source$, 
destination$) 


110 LOCal char, records, 
get_races, header$ 

120 OPEN-IN #3, source$ : 
INPUT #3, header$ 

130 DELETE destination$ : 
OPEN__NEW #4, 
destinations 

140 records = 0: PRINT #4, 
“0000” 

150 REPeat get__recs 

160 char = 
CODE(INKEY$(#3)) 

170 SELect ON char 

180 =13 : records = records 
+1 

190 =44 : PRINT #4, 
CHRS(10); 

200 =26, 34 : REMark ignore 
LF and quotes 

210 =REMAINDER : PRINT 
#4, CHR$(char); 

220 END SELect 

230 IF EOF(#3) - EXIT 
get__races 


with the answer, or just sound off about 
something which bothers you, write to: Open 
Channel, Sinclair QL World, Greencoat 
House, Francis Street, London SW1 1DG. 


240 END REPeat get__recs 
250 SCROLL #4, 4 - 


- LEN(records), 42: PRINT #4, 


records 
260 CLOSE #3 : CLOSE #4 
270 END DEFine IMPORT 


The file can be read using the 
INPUT command. The first 
INPUT will give the number of 
records in the file. I hope other 
readers will find this of use. 

Andrew Veitch, 
Edinburgh. 


I am writing with a cautionary 
tale which may be of interest to 
readers. Having recently been 
given a Sinclair OL, I saw the 
Microfair as an_ excellent 
opportunity of checking the 
products and software avail- 
able for the OL. The show had 
on offer a bewildering array of 
hardware and software to 
tempt the novice and more 
experienced user. 

As a novice, I was looking 
for software of a_ practical 
nature and to that end bought 
two programs at very reason- 
able prices but, on returning 
home with them, I found to my 
dismay that they failed to run. 

Although disappointed, I set 
out to trace the company which 
had sold me the software. I 
went through every journal 
and trade magazine I could but 
to no avail. I then tried my 
bank, which said it would for- 
ward a letter to the bank which 
drew the cheque against my 
account with a request that it 
was forwarded. That I did, and 
I received a letter to say that no 
account was held in that name 
and that the cheque had been 


passed through another 
account after being counter- 
signed. 


I have now no way of retriev- 
ing my money or getting the 
programs replaced, although 
both programs carry the Sinc- 
lair trade mark. It has now 


made me cautious about part- 
ing with my money. I am 
surprised that no check was 
made to see that the companies 
exhibiting at the show were 
bona fide and offered some 
comeback to the purchasers. 
I offer this tale so that other 
users of this excellent machine 
are not caught the way I have 
been. 
I. Braybrook, 
Shooters Hill, 
London SE18 3JF. 


Editor's comment: This is a 
tricky situation and though it is 
more likely to catch people who 
are buying cut-price or second- 
hand goods, it also occurs in 
much bigger business ventures, 
including _finance-related 
businesses. 

There is no reason, in theory, 
why the bank could not trace 
that cheque to its eventual payee 
and permit an investigation into 
how the cheque had been 
obtained and from whom but 
very frequently banks will not 
co-operate with that kind of 
investigation, even where the 
police are involved, on grounds 
of confidentiality. 

If the police are unable to 
obtain information concerning 
a suspected fraud it seems 
unlikely that a citizen will be 
able to do so. Ihave not heard a 
satisfactory explanation of why 
this situation exists but it cer- 
tainly aids fraud. The law now 
requires banks to give informa- 
tion where profits from drug 
trafficking are suspected, so 
why not other criminal activi- 
ties? 

There is no absolute way of 
protecting oneself from decep- 
tion. Crossing all cheques 
“account payee only”, 
however, means that the cheque 
must be paid into the account of 
the person or organisation to 
which it is made out. That offers 
some security. Asking for a 
receipt with a name and address 
on it — better still if there is a 
VAT number but this will not 
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apply to smaller dealers — also 
gives some proof of authentic- 
ity. If in doubt, see if you can 
obtain permission to run the 
program; there are usually OLs 
up and running somewhere 
nearby. 

If the dealer is wary, of 
course, it may be that he is also 
afraid of being taken advantage 
of. There is no way that show 
organisers can be certain that 
every dealer who takes a table is 
bona fide, as any individual is 
allowed by law to sell goods. 


I was surprised that you were 
interested in my inverted QL. I 
hope that the pictures this time 
are more suitable for, as you 
know, originally I sent them in 
as an addition to the ‘sawn-off 
QL’ joke. 

The reason for the amputa- 
tion, as you can see, was the 
limited area I had in which to 
set up the QL permanently. 
The QL PCB is mounted, 
upside-down, directly under- 
neath the keyboard on a plank 
of wood between my bedside 
cabinet and the wall. In this 
way I still have the use of the 
Microdrives if required. The 
cable and connectors were all 
supplied by Maplin, the elec- 
tronics component suppliers, 
and are: 


1 x 25-way IDC plug, number 
FV81C @ £2.95 

1x 25-way IDC socket, number 
FV82D @ £3.25 

1 x edge connector, number 
FL83E @ 98p 

1x length of 26-way IDC cable, 
number XR 75S, as required @ 
34p per foot 


Add 15 percent VAT to the 
total. 


Remove the whole circuit 
board from the case, being very 
careful when removing the 
keyboard plastic cables — films 
— from the sockets. Solder the 
IDC 26-way ribbon cable to the 
bottom of the circuit board 
where the 9- and 11-pin 
keyboard sockets are attached, 
taking all the usual precautions 
to see that the board does not 
become too hot or suffer high 
voltages. Connect the wires, 
which are red and black on 
mine, for the ON led on the 
keyboard to the IDC cable. 

Attach the 25-way plug to 
this, keeping the IDC cable as 
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The split QL from the top. 


The view from directly underneath: 


short as is practicable to reach 
wherever you are to mount the 
removed PCB. Now we 
approach the point of no 
return. Cut the Microdrive 
housing from the keyboard — I 
cut mine with a junior hacksaw 
blade — and remove the separ- 
ator between the serl and ser2 
outlets to allow the cable to go 
through or to mount the 
socket. 

Cut the edge connector 
socket into two pieces to suit 
the 9 and 11 contacts from the 
keyboard. To those, solder a 
short piece of IDC cable, 
reversing one of the pieces to 
match the film from the 
keyboard. To the other end 
attach the 25-way socket and 
also the led wires and so on. 

Slide the keyboard films 
onto the made-up sockets 
along with a piece of thin 
plastic or card; do not be too 
brutal as you can easily damage 
the film. A strip of Lasovic tape 
will prevent any movement 
once inserted. 


The one thing I did not move 
was the re-set button but I 
think there are enough spare 
wires in the IDC if anyone 
needs to do this. 

The third picture I have 
enclosed is from Berard 
Denchfield’s excellent Flight- 
deck and it is my impression of 
Gatwick on approach on 262 
left, proving that if you want 
vertical 3D he has given you 


a shelf. 


the facility to do it, though it 
slows the picture a little. 

The main uses for my set-up 
are the usual accounts and 
letters, programs from QL 
World and flying round Great 
Britain courtesy of Flightdeck 
when I have the time. 

S.J. Parker, 
Lindfield, 
Haywards Heath, 
West Sussex, 
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TA YOFTWARE FILE 
MUSI-QL 


INFORMATION 
Product: MusiQL — music 
notation printer 


Supplier: |. N. Back, 1 

The Chase, London SW4 
| ONP 

Price: ?? 


ome months ago a 

regular reader of 

Sinclair QL World 

sent a disc full of 
music-writing programs he 
considered might be suitable 
for including in Microdrive 
Exchange. Sadly, the package 
was too big to be sold on a 
single Microdrive and, in any 
event, its potential was so great 
that our advice to the author 
was to release the programs 
professionally. Dr Tan Back 
has since identified the most 
commercial elements of the 
programs, modified and 
improved them and launched 
himself as a small, specialist 
software house. 


Commercial 


I mention this in detail 
because in the QL market, 
above any other, the way is 
open for competent amateur 
programmers to produce qual- 
ity commercial software for a 
discerning public. Try it in the 
Atari 520 market, for instance, 
and you will be swamped 
among the thousands of small 
advertisements. One reason 
why the OL is such a good base 
for software is that its compiled 
Basic is a supremely competent 
language. MusiQL, the prog- 
ram being reviewed, is one 
example of the many successful 
pieces of software to be com- 
piled by SuperCharge, itself 
just one of three quality com- 
pilers QL users can choose, 

MusiQL requires a QL with 
up to 256K of memory expan- 
sion connected ta an Epson- 
compatible printer. Its objec- 


14 


last month. 


Mike Lloyd presents another 
view of the professional-quality 
notation program reviewed 


tive is to to produce printed 
music and so it can be descri- 
bed as a kind of musical word 
processor. The package com- 
prises three programs — one to 
write music, the second to 
control printing and the third 
to produce blank manuscript 
paper for handwritten music. 
The last option alone should 
help users recoup the cost of 
the program through not need- 
ing to buy expensive pads of 
manuscript paper. One thing it 
does not do is play music; for 
that you will still need human 
beings and musical instru- 
ments. 

To begin writing a tune in 
MusiQL the working copy of 
the program is placed in the 
default drive of a re-set OL and 
the Fl key is pressed. The Tune 
option is picked from the 
menu, its code is loaded from 
the disc and the Tune sub- 
menu is displayed. This menu 
is operated by pressing the first 
character of the required 
option, whereas in other 
menus numbers are pressed. 
The options are named intelli- 


gently so that their purpose is 
obvious to anyone who has 
read the Quill-based manual. 


A beginner will start with the 
New option which begins by 
posing questions of the new 
tune title, clef, time signature 
and key signature. Those mat- 
ters resolved satisfactorily, the 
screen displays a length of 
musical stave complete with 
clef, signature and key written 
in and supported by an aide 
memoire for all the input 


options which are available. 


Music is entered one bar at a 
time with a maximum of 32 
notes or rests per bar. 


Piano 


There is no easy way to use a 
QWERTY keyboard to type-in 
musical notes. It is just as 
awkward if the roles are 
reversed; imagine typing a Ict- 
ter ona piano. It is therefore no 
criticism of MusiQL that it is 
sometimes cumbersome to use. 

MusiQL supports nine octa- 
ves, 108 notes in all, from the 
deepest bass to the highest 


treble. Each octave is given a 
number from 0 to 8, in line with 
standard Midi notation. The 12 
notes in each octave are dis- 
tinguished by the eight letters 
of the octave scale, with inter- 
vening semitones identified by 
pressing either the up arrow for 
sharps or the down arrow for 
flats. 

Written notes convey dura- 
tion as well as pitch and so 
MusiQL requires each note to 
be followed by a mnemonic 
representing its length — “Q” 
for a quaver, “M” for a dotted 
minim, and so on. A Middle C 
lasting for half a beat would 
therefore be centered as 
“C5Q”. I soon tired of having 
to enter the octave number and 
would welcome a little more 
intelligence from the program 
so that octave values need be 
entered only when the “cur- 
rent” octave is left. 

The most disappointing fea- 
ture is the unnecessary differ- 
entiation between input mode 
and edit mode. It is rather like 
Quill being re-modelled so that 
it has a mode in which deleting 
characters is forbidden and the 
cursor can never retrace its 
steps. Worse, ifan “end of bar” 
code is inserted in the incorrect 
place MusicQL forces you to 
re-type all the notes in the bar, 
presumably as a punishment. 
That was frustrating with 
crotchets but it must be mur- 
derous with  semi-quavers. 
Because of this peculiar picce 
of pedantry it is also impossible 


‘ 4 - 
‘to type-in the first two notes of 


tunes which do not begin on the 
first beat of the bar. 

The cure seems to be to 
dispense with the input mode 
in favour of the cdit mode, 
teach the program to place bars 
on the stave for itself, and to 
cope with miscalculations of 
note values in a more friendly 
manner. Perhaps version two 
will address those points. 

The edit mode was much 
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more friendly, allowing bars to 
be copied from anywhere in the 
manuscript, notes to be 
changed, bars to be re-written 
and the tune to be extended by 
adding new bars to the end of 
those entered in the input 
mode. A maximum limit of 256 
bars is imposed for any single 
tune but a magnum opus could 
be spread across several files. 

The Tunewriter module 
does not recognise multi-stave 
music. A determined user 
could force it to print tunes 
with linked treble and_ bass 
staves but the process would be 
frustrating and difficult, Ver- 
sion one is more naturally 
suited to writing music for 
instruments which play on a 
single stave. 

Once entered and edited, 
tunes can be viewed in any key 
and in any pitch. Selecting a 
new key forces the appropriate 
sharps or flats to be displayed 
at the beginning of each line. 
Intelligent decisions are made 
about whether notes such as F 
sharp should really be G flat 
and there is provision for users 
to over-ride the program's 
choice. 

The file = management 
options are conventional and 
competently — error-trapped. 


Old tunes can be loaded and 
edited and up to 256 tunes can 
be saved to a single disc or 
Microdrive. Directory listings 
restrict themselves to files with 
the MusiQL filename suffix. 
Before a tune can be printed it 
must first be saved and the 
second executable program in 
the MusiQL suite overlaid into 
memory. 

In the Tunewriter module 
previously-saved tunes can be 
loaded into memory one at a 
time. The key and the pitch can 
be changed so that a tune 
written in G can be printed-out 
in E flat it the user desires. The 
density of music can be altered 
by selecting two, three or four 
bars per line. Settings for single 
sheet, continuous stationery, 
draft mode and full quality 


Stone Street, North Stanford, Ashford, 


TALENT + kent 12s cor. 


Tel:0303 813883 Fax: 0303 812892 Telex: 966676 PMFAB G 


Identify 500+ stars and planets with 


CARTRIDGE 


DOCTOR 


Essential for all QL owners. 
#* Rescue files from damaged 


mode are available. In prac- 
tice, draft mode was of a good 
quality and was twice as fast as 
the full quality mode. Ties, 
triplets, joined tails and 8va 
markings are taken in the prog- 
ram's stride. 


Strength 


The professional look of the 
printed output is the real 
strength of this program, as can 
be seen from the examples 
reproduced. Its ability to rep- 
resent, with great clarity, 
highly-complex music is clear 
to see and a tribute to the 
designer. Standard musical 
notation has all the elegance, 
decoration and grace of the 
baroque music it was develo- 
ped to represent. 


this impressive astronomy program. 


COSMOS displays accurate star maps 
for any date and time anywhere 


It is unsuited to translation 
into a character set similar to 
the English alphabet. The prin- 
ter therefore works in graphics 
mode and the program 
“draws” each line of music in 
memory before sending infor- 
mation to the printer. The 
painstaking care taken to 
ensure that the printouts cope 
with most musical eventualities 
shines through the design of 
each symbol. 

The final product supplied 
with MusiQL is called Manu- 
script; it produces blank manu- 
script paper, pre-marked with 
stave and key, for handwritten 
music. The output is four bars 
per line and staves can be 
joined in pairs, threes, fours 
and sixes, any number of which 
can be given bass clefs. 

MusiQL is a very impressive 
product, especially as it is the 
first commercial program sold 
by its designer. The weaknes- 
ses in its communication with 
the user are more than offset by 
the quality of its output and 
regular music writers can safely 
buy MusiQL and know that 
they can make good use of it. If 
the demand is sufficient the 
product could develop further 
and be joined by other related 
utilities. 


facies =") KVLOD) CE.) 


ASSEMBLER 
WORKBENCH 


A complete set of tools for the 
machine code programmer. 


Combines assembler, monitor and 
screen editor. Dual screen to assist 
debugging of graphics programs, 
can operate on RAM or disc files. 
Compact and easy to use. 


cartridges 
#* Recover newly deleted files 
#* Recover files with damaged 
blocks 
% And much more 


A two-dimensional CAD package 
suitable for all general, scientific 
and engineering applications 
Create accurate, finely detailed 
plans, diagrams or designs. 
%* Zoom in and out. 

#* Library of drawing tools 


in the world. View the solar 
system, the moons of 
Jupiter, Saturn’s rings 


Our new catalogue includes 


Hoverzone Deathstrike...£15.00 Lost Pharoah... 

Basic-ally Technikit 

Jungle Eddi 

GraphiOL+ 

Horrorday 

Hoverzone 

The Prawn 

3D Designer Wimp Designer..........£14.95 


Please telephone for details of products of Z88 Software 


os t 
yes ou 
ost ye 


x Fast, multi-width output } W 
#* 2 screen modes 


FTIWARE FILE 


ome programmers 

take the search for 

ever-improving levels 

of code efficiency to 
extraordinary lengths. One 
such programmer is the irre- 
pressible Chas Dillon, respon- 
sible for The Editor and once a 
member of the team which 
produced the Digital Precision 
Turbo Basic compiler. Dillon is 
a fastidious codesmith whose 
products set exemplary stan- 
dards for efficiency, reliability 
and functionality. His latest 
offering is a programmers’ util- 
ity, SBMon, released through 
the Midlands software house 
PDOQL. 

SBMon is an unusual offer- 
ing which seems to have been 
developed to meet Dillon’s 
need for an objective method 
of identifying which parts of his 
programs should be tuned for 
maximum performance. It runs 
as a background task when a 


SB Mon 


SuperBasic program is running 
and, at intervals specified by 
the programmer, records 
which line the SuperBasic 
interpreter is examining. 

The object is to identify 
those parts of a program which 
are called most frequently and 
which would benefit most from 
fine-tuning. 

Programs are divided 
under the user’s control into a 
maximum of 300 “analysis 
cells” which potentially hold 
the same number of program 
lines. A declared cell interval 
might contain only three or 
four widely-spaced program 
lines. For detailed work prog- 
rammers can restrict the range 
of lines being monitored and 
can thereby allocate one prog- 
ram line to each analysis cell. 


Mike Lloyd 
finds a fine- 
tuner. 


Output can be directed to 
the screen, a file or the printer 
and comprises columns for line 
numbers, the frequency with 
which they occur and two cal- 
culations of percentages, one 
including and the other exclud- 
ing time in which Basic was 
idle. 

While acknowledging that 
the utility has been executed to 
a very high standard I am not 
convinced that it is particularly 
useful. Most programmers are 
aware of which parts of their 
programs are called most fre- 
quently and where there is 


doubt the temporary inclusion 
of a well-sited BEEP command 
can be most instructive. The 
Statistics gathered by SBMon 
can be misleading if line num- 
bers are spaced unevenly or if 
the program waits for 
keyboard or file input for any 
length of time. 

Nevertheless, SBMon might 
uncover a key routine in very 
large programs which would 
otherwise be missed. It could 
also prove its value when a 
program is undergoing pre- 
release testing by volunteers in 
the programmer's absence. 
The testers may say they spent 
most time in one particular 
area but SBMon may reveal 
otherwise. 

If you write large commer- 
cial programs and use volun- 
teers to test them, SBMon 
could be worth trying; other- 
wise it is a luxury of limited 
worth. 


prices: 
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text®’ version 300 


text version 2.00 ofters today's state-of-the-art environment for document production. There ts simply no 
comparable product for the QL. Now with integrated spell-checker which shows spelling errors in their context with its 
45,000+ word English, French and German dictionaries supplied as standard. 


fountext®. tne graphic printer driver for text? witn 22 high-quality founts up to 72 pixeis high. Use 
graphic founts without the limitations in text editing and document size Imposed by QL desktop publishing programs. 


founted®?, the graphics editor for text? an fountext®™ anows you to create founts of up to 
84x96 pixels and capture screen images to produce picture founts for use within documents. 


2A the state-of-the-art text-mode printer drivers for Epson, NEC and Star 24-pin printers offer advanced printing 
features such as multiple type-faces, proportional specing, micro-justification, double-height, shadow and outline modes. 


text”; £60 ... fountext®:£25 ... founted®?: £15 
text?” + fountext® + founted®?; £95 .... 24%: £15 ... 


Software is avaliable in English, French and German. Prices ere inclusive of airmail worldwide. Payable by cheque, 
Postal Order, or Eurocheque. Please specify language and disk system (all 3 1/2° and 5 1/4” formats can be supplied). See 
previous advertisements for details of upgrade to version 3.00. textS7 requires at least 256K memory expansion. 


write now for our new leaflet 
Software87, 33 Savernake Road, London NW3 2JU 
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REORUSEEURE 


Bryan Davies 


takes a long 
hard look at 


the world of 
QOL software. 


t has been a notable feature of the 

last few years that, as suppliers fell 

by the wayside, the software and 

hardware really started to come 
good, Be assured that there are still more 
good things to come. There are projects 
under way now which will fill some, at 
least, of the obvious gaps in the QL 
armoury. No one in his right mind 
embarks on a jong development project 
without having done some research into 
the potential market for the end product; 
there must be sufficient potential buyers 
to make the developer a reasonable 
amount of money. 

Some software writers to whom | speak 
have believed for some years that money 
is not available in the QL market in 
sufficient amounts to feed their interest or 
} stomachs. It is surprising to discuss 
figures and realise what a gap there is 
between the optimistic and pessimisitic 
ends of the scale. Two writers for whom 
many people have considerable respect 
have told me that they think potential 
sales of even good, major programs are 
now no more than 1,000-2,000 copies. 

In contrast, one supplier appears to feel 
that these figures are more like a guaran- 
teed minimum and the maximum is much 
higher. We are talking about the border 
between breaking even and making 
reasonable money. If nothing can be sold 
in greater volume than than 1,000 copies, 
only those writers and suppliers produc- 
ing or distributing several major programs 
can survive by working with the QL alone. 

Nobody will commission a survey to 
determine the buying habits of QL users 
but think of a few statistics. Sinclair was 
responsible — directly or indirectly — for 
the production of sufficient parts for 
perhaps, 250,000 QLs. There is no point 
in nitpicking. If the figure is truly only 
150,000, it does not make much differ- 
ence to the argument. 

It seems to be accepted that only about 
150,000 QL systems were completed; 
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although some were completed after 
Sinclair ceased to be directly involved, 
there have not been enough of them to 
alter the total significantly. Roughly half 
the total went out of the U.K. and were 
spread widely throughout the world. No 
doubt many are now covered by dust in 
cupboards but there is little doubt there 
are a few thousand still being used by 
people who are active enough to get their 
names on mailing lists in various places. 

The User Group, Quanta, has a mem- 
bership approaching 2,000; QL World has 
a circulation several times that; SUB 
claimed approaching 1,000 subscribers; 
and at least one supplier has a database 
of around 30,000 names. In the usual way 
of things, there are many more people 
involved than those whose names are 
listed on database but it seems reason- 
able to suppose that there are 20,000— 
40,000 people who are potential buyers of 
QL products, with perhaps 5,000— 10,000 
of them being fairly active. 

The relatively high prices asked by 
sellers of used QLs and by suppliers of 
new ones give further support to the 
feeling that the QL scene is an active one; 
complete used systems appear to be 
fetching prices comparable with those of 
the cheapest new PCs. 


Prices 


In the long run, a typical user may 
spend almost as much on software as on 
hardware. Those buying a QL now at 
£100 or less will soon exceed that 
expenditure on programs. That is one of 
the main merits of buying a QL now; there 
is a fairly wide range of good software 
available at prices which are generally 
below those associated with competitive 
computers. A cheap PC may look like a 
good deal but paying as much for a word 
processing program as for the computer 
system soon dispels-any notion of cheap- 
ness. 

Lack of sales for software should not 
automatically be attributed by the writers 
to lack of potential buyers. Selling is not a 
straightforward matter; if it were, would 
such a vast amount be spent on advertis- 
ing and promotion in general? Suppliers 
with a wide range of good products will 
take plenty of orders, provided they 
advertise sensibly and regularly. In this 
context, advertising includes making 
appearances at fairs and meetings for QL 
users, largely to overcome the distrust 
many users have, with good reason, of 


buying by mail order. 

Users and buyers are not the same of 
course. The bane of a software supplier's 
life is piracy and some people believe that 
accounts for as much as 50 percent of the 
program copies in use. It ig said to be 
more prevalent for QL titles in countries 
outside the U.K. and that is at least partly 
due to ineffective distribution of “the real 
thing” in other countries. 

One line with which Schén has had 
success is add-on keyboards. While the 
desire to get away from the QL keyboard 
makes little sense to me, it clearly exists 
strongly for a significant number of users. 
Even though they may not be advertised, 
the same keyboards are still available 
from suppliers such as PDQL. It is also 
possible to get a keyboard interface to 
allow standard IBM-pattern keyboards to 
be connected to the QL. 

There has been a steady but, presum- 
ably, small demand for PC-style cases to 
house the QL plus a few add-on units. The 
ones which were available left more than 
alittle to be desired, so far as the non-DIY 
user was concerned. Are there any left on 
the market or about to be launched? 

To my mind, the piece of hardware 
most conspicuous by its absence is a 
mouse. It would be easy to conclude that 
there is no sensible way of attaching a 
mouse to the QL, since there has never to 
the best of my knowledge been a “stan- 
dard mouse” for it. It has not been 
possible to buy a mouse which could be 
fitted easily by most users and be useful 
with the obvious, major programs. | think 
you can still obtain the Ice mouse from 
Transform International but it is a dedi- 
cated device, working only with the Ice 
front-end firmware, Artice, and a few other 
small routines. 

The Smiling Mouse showed promise of 
being fairly inexpensive and usable with 
programs such as Front Page and 
Desktop Publisher but the development of 
the interface software and the marketing 
of the package were not handled weil and 
it disappeared from the scene. More or 
less the same story applied to the Giga 
Mouse from ABC. Qjump offered a 
mouse, presumably intended for use with 
its own software; whether or not it is 
usable with graphics or DTP programs 
such as EyeQ, Professional Publisher 
and Page Designer | do not know. 

In the absence of any advertising from 
Qjump recently it will be uncertain to 
potential buyers whether or not this 
mouse is available. All this adds up to at 
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least three hardware items which are in 
need of aproducer and supplier and some 
advertising to bring them to the attention 
of users. 

One should read the small print now 
and then. | knew that fext®’ version 3.00 
would incorporate several useful 
improvements but it had not occurred to 
me that one of them would be a spell- 
checking facility. The recent advertise- 
ments note this, without making any 
special point of it. Surely the incorporation 
of a spell-checker in a word processing 
program for the first time on the QL 
deserves a little more noise from the 
suppliers. The checker should operate 
rather faster than the Spel/Bound-File- 
Bound combination, plus having the 
marked time and space advantage of not 
requiring stepping out of the WP program 
to do the checking. | hope it will be 
possible to comment on hands-on experi- 
ence with the new version in next month's 
issue. 

There must be many users who feel 
that a PC emulator on the QL cannot be 
used for serious work because software 
emulation is so slow. There is no doubt 
that lack of speed is a big disadvantage 
but it is wrong to think it prevents you 
doing sizeable jobs. As a test, | took a 
20,000-word document — almost 200KB 
in size — directly from WordPerfect 5.0 on 
a PC/AT and loaded it into the same 
program on the QL, using PC Conqueror. 
It was by no means a five-minute process; 
it took some time to determine the best 
approach to getting such a large docu- 
ment loaded and the loading was not fast. 
Much of the time spent was no reflection 
on either the QL or Conqueror — it is not 
only Quill which uses overflow files for 
large documents. The current generation 
of PC programs really cannot be used 
sensibly on computers which do not have 
a hard disc drive and this factor tends to 
make the QL-plus-emulator look unjustifi- 
ably slow. 

What mattered most, though, was that 
the 52-page document loaded properly 
and was displayed equally as well as the 
original at the AT standing alongside the 
QL. The boxes incorporated in the docu- 
ment for subsequent pasting-in of pic- 
tures were there, shown clearly, and the 
Print Preview function worked properly, 
although naturally not so clear as on an 
EGA screen. 

The real test is always printing and 
there was no problem there either. The 
output was correct and did not take as 
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AORIRER 


long as might have been expected. 
Editing of documents can be done at a 
reasonable pace but you need to avoid 
using commands as far as possible, 
because they take proportionately longer 
than text entry. 

Discs can be an expensive item and 
there is the usual potential for losing 
money when buying by mail order from 
unknown suppliers. Recently | needed 
3.5in. discs and, having seen no adverti- 
sements from my previous supplier 
Athena, had to risk buying from a new 
one. The list of possibles numbered about 
half a dozen, selected on the basis of 
lowest price, some kind of replacement 
promise for faulty discs, acceptance of 
credit cards and the look of the advertise- 
ment. 


Credit Card 


The last factor is obviously not the most 
precise of tests but | certainly dismissed 
one supplier purely because the adverti- 
sement suggested a rip-off to me. Credit 
card payment is absolutely essential if 
you want any kind of protection against 
losing your money. A bank will not help at 
all if your cheque is cashed and the goods 
do not arrive but a credit card company is 
likely to take more interest in your case. 

As mentioned in a previous article, £25 | 
lost to mail order company for printer 
ribbons which never materialised was 
refunded to me by Access. Price varies 
more than one might expect and is 
confused by offers of “free” disc boxes 
with larger orders. Buying 20 at a time, the 
best prices for 3.5in. discs ranged about 
66-90 pence each. Although unbranded 
discs with no guarantee can be satisfac- 
tory to most users, it seems desirable to 
pay a little extra and get some form of 
promise of replacement, such as “all 
discs 100 percent certified and guaran- 
teed”. 

Few of my discs are branded and few 
have given any trouble through the years. 
The supplier | chose finally - Manor 
Court Supplies, see information — had 
the lowest effective price — £20 (total) for 
20 discs plus an 80-disc storage box but 
without labels. Depending on how one 
values a box that equates to something 
between 66 and 83 pence per disc, which 
| think acceptable. 

The test of a 3.5in disc is, for me, 
whether or not it will format to 1.44MB on 
the AT. The fact that the discs are sold as 
720KB capacity, 135tpi does not prevent 


them being used on some drives at the 
higher capacity. The 20 bought this time 
all gave the full 1.44MB first time without 
error. That implies that they will be 
satisfactory used on the QL at 720KB. 
Having been formatting unbranded discs 
to 1.44MB for more than a year | have yet 
to find any significant problem with them. 
There have been two or three instances of 
discs giving less than the full capacity and 
those are now used only at 720KB; the 
few instances of disc errors appeared to 
be related to software problems, not to the 
discs. ; 

The letter from James McGreehin in 
the February issue appears to have got 
out of sequence in the multi-way corres- 
pondence chain on the subject of printing 
with graFix. Digital Precision is not the 
producer of this program — PDQL is. It 
was apparently supplied together with 
Special Edition Desktop Publisher and 
Professional Publisher but not with the 
basic Desktop Publisher, which is pre- 
sumably how the confusion arose. 

Both PDQL and DP state that the Serial 
8056 printer is unsuitable for use in DTP 
work but there appears to be some 
problem related both to printing of 
Desktop and/or Professional Publisher 
files by graFix and to the symmetry of 
printouts from the program in general. 
The problems should be sorted out by 
now and a new version of graFix should 
be available; it will include multipass 
printing. 

David Owen asked about the current 
status of the Italian supplier SPEM on the 
QL scene. It has always been a little 
difficult to find who handles products and 
one has to assume that it ceased trying to 
find a suitable U.K. distributor some time 
ago. The base address | have is given in 
the Information box; if anyone has up-to- 
date news of its interest in the QL and 
what products it has on offer, we would 
like to receive it. 


INFORMATION - 

Discs: Manor Court Supplies Ltd, 
Dept. PCW 

1 Glen Celyn House, 

Penybont, 

Llandrindod Wells, 


Powys LD1 58Y 
Tel: 0597 87784 


SPEM 

Via Ponchielli 26c, 
10154 Torino, 
Italy 
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he QL character set is unusual 

in a number of respects. Its 

characters are not square but 

rectangular; their size and spac- 
ing can be varied using SuperBasic 
commands; non-printing characters are 
depicted by a standard pattern and there 
are not one but two character set defini- 
tions in the QL memory. With these 
potential complications and a complete 
lack of guidance in the User Guide itis not 
surprising that programmers hesitate to 
experiment with changes to the standard 
QL fonts. 


Mechanics 


The mechanics behind printing a char- 
acter on the screen are simple. Each 
character is given a code number from 0 
to 255 from which the computer can 
calculate where in its memory to search 
for the character definition. The defini- 
tions comprise a number of bytes which 
make sense only when written in binary. 
Each binary digit represents a screen 
pixel, a “1” being an INK pixel and a “0” 
being a PAPER pixel. The QL ROM 
contains a routine to carry-out this transla- 
tion process and paint the pixels at the 
appropriate point on the screen. 

The memory areas in which character 
definitions are stored are called fonts. The 
code numbers given to the characters 
are, as most QL users know, standardi- 
sed on the ASCII set which determines 
that the alphabet in capital letters begins 
at ASCII code 65. Codes below 32 are 
“non-printing” codes used to represent 
linefeeds, tabulation, formfeeds, back- 
spacing and so on. Codes above 127, the 
copyright symbol, can be assigned to 
different characters according to the 
needs of the particular computer manu- 
facturer. The QL has a large variety of 
additional characters stored from ASCII 
code 128 to 191. 

If users wish to create new character 
sets or modify selected characters from 
the standard font they need to allocate 


RAM space for the new font, copy into it 
any standard characters they wish to 
retain, insert new definitions for the 
character codes which are to be changed 
and then tell the computer to ignore the 
standard font and access the new font 
instead. Before any of that can be attemp- 
ted an understanding of the layout of the 
standard fonts is essential. 

In the JS release of the QL ROM the 
first font begins at memory location 44442 
and contains definitions of every charac- 
ter from ASCII code 32, the space, to 
ASCII code 127, the copyright symbol. 
The first byte in the font is one less than 
the ASCII code of the first printable 
character to be defined in it, i.e., 31. The 
second byte represents how many char- 
acters the font contains, i.e., 96. 

Each character has nine rows of pixels, 
although some of them may be blank. 
Nine bytes are reserved for each charac- 
ter definition, one for each pixel row. Most 
computers use characters which are eight 
pixels wide but the QL has its characters 
only five pixels wide, That means that the 
first bit and the last two bits of each byte 
are ignored. The QL cares not whether 
the final two bits are ones or zeros but 
occasionally it will corrupt the screen if the 
first bit is anything but zero. 

The first character definition in each 
font is a standard pattern, the familiar 
chequerboard, which is used whenever 
an ASCII code which lies beyond the 
range of the font is printed. The start of 
each character definition can be calcu- 
lated by finding the address of the first 
byte of the font, adding 11 to it to skip over 
the information bytes and the chequer- 
board pattern and then adding a number 
nine times the difference between the 
ASCII code of the required character and 
32, the ASCII code of the first printable 
character. The total length of the first font 
is 875 bytes but an extra null byte is added 
so that the next font can begin on an even- 
numbered address. 

The second ROM font is organised in 
the same way as the first with two bytes of 


Mike Lloyd presents a 
definitive description of 
the QL character set. 


information and a defaulf pattern — the 
chequerboard again — followed by char- 
acter definitions from ASCII code 128 to 
192. 

The number of characters in each font 
is not fixed. Programmers can declare a 
single font containing all the printing 
characters from ASCII code 32 to 191 and 
even include non-printing codes. Each 
font must begin with the two information 
bytes set correctly, followed by the pattern 
to be used for character codes beyond the 
range of the font. 

Speedscreen, Lightning and the 
QJump Super Toolkit !/ include additional 
SuperBasic commands which allow new 
fonts to be assigned to windows. Prog- 
rammers without those facilities, or those 
writing programs for users who may not 
have them, must write their own routines 
to produce the same results. 

This month's program is a collection of 
font-designing utilities which combine 
simplicity with flexibility. New characters 
can be designed and described in an easy 
way and converted into either of two 
formats for saving and incorporation into 
other programs. To keep things simple, 
only the first of the standard fonts is used 
and it is kept to its original range of ASCII 
code 32 to 127. 


Reserved 


The first listing takes a copy of the 
standard font and places it in a reserved 
area of memory. Four bytes of data are 
transferred at a time to reduce the number 
of iterations and thus accelerate the 
execution time. It has been assumed that 
the standard font begins at memory 
address 44442, as it does in JS ROMs. If 
you own a different ROM — discover that 
by typing-in PRINT VEA$ — a different 
address might be needed. For other QL 
ROMs, type-in the Wbase function — 
listing five — and then use the following 
command: 


PRINT PEEK_L (Wbase + 42) 
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To whatever address this points will be 
the first byte of the first standard font. The 
value 44442 should be replaced by this 
new value in lines 115, 305 and 5010. 

The Wbase function assumes that the 
main Qdos reference table is located 
immediately after the screen map begin- 
ning at address 163840. It is very rarely 
displaced but it is possible that strange 
peripherals or software might make it 
inaccurate. In those circumstances you 
should consult the documentation of 
whatever is causing the problem or use a 
proprietary toolkit. 


Copies 


The Begin procedure copies the stan- 
dard font into a reserved area of RAM 
where it can be manipulated. Before 
proceeding further some new character 
definitions need to be designed. Listing 10 
contains the definitions of three example 
characters. Itis not necessary to re-define 
every character in the font or to select 
groups of contiguous characters for re- 


Listing 1 


10 
105 
11 
115 
120 
125 
130 
135 
140 


(.0Cal X, Chase 
FRINT#O, 
Rase = 
FOR X = 
POKE_L. Hase+Xx, 
END FOR X 
PRINT#HO; 


END DEFine Begin 


designing. Each definition contains 10 
pieces of information, consisting of the 
character being defined followed by nine 
strings which describe its shape. 
PAPER pixels are represented by 
zeros or spaces. Any other characters are 
assumed to represent INK pixels. Blank 
rows can be shown by a null string. 


Listing 2 


200 
205 
218 
2135 
228 
fa 
238 
ad 
240 
245 
259 
255 
260 


LOCal loop, 
RESTORE 1@@@: 
REFeat loop 
READ C%: 
IF LEN(C#) => 
Chase = 
FOR Cline = 
READ Cbhyte#: 
END FOR Cline 
NewChars(1): 
END REFeat loop 
END DEFine Display 


cs, 


Ls 
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"Tnitialising 

RESPR(9@@) : 
@ TO 866 STEF 4 

PEEK _L (Chase+tx) 


OLChars (1): 
RETurn 

Base -277 +CODE (C$) 
Chase TO Chase +8 
FOKE Cline, 


Characters can be designed first on graph 
paper and then translated into DATA 
statements or you can design directly on 
the screen by typing-in and modifying 
DATA statements. The appearances of 
the example characters can be seen 
clearly from listing 10. The last DATA 


Listing 3 


300 DEFine FROCedure @LChars 
205 FPOKE_L Wbhase (Screen) 


210 END DEFine @LChars 


Listing 4 


400 DEFine FROCedure NewChars 


405 FPOKE_L. Whase (Screen 
41@ END DEFine NewChars 


DEFine FROCedure Begin 


Chase = 44442 


"Complete." 


Listing 3 
902 DEFine FuNection 


510 END DEFine Whase 


DEFine FROCedure Display 
Chase, 
CSIZE 2, @ 


Coytet%, Cline 
CLS 


PRINT C#; 
“9 


BinDec (Chyte#) 


FRINT Ce 


Whase 
S@S RETurn PEERK_L (PEEK _L (1639460) 


statement can be any string with more 
than one character in it but a meaningful 
message such as “END” is recom- 
mended. 

It is important to ensure that exactly 
nine strings exist for each character; any 
more or less will force the display routine 


(Screen) 


+42, 44442 


(Screen) 


) + 42, Base 


to finish prematurely with the offending 
data string printed on the screen. 

Listing two controls the conversion of 
DATA strings into bytes and places them 
into the font. As each character is defined 
it is printed alongside the standard char- 
acter shape in Window#1. Much of the 
work of this procedure is sub-contracted 
to subordinate routines described later. 

The Cbase variable holds the first byte 
of the character being defined. A 
FOR..NEXT loop cycles once for each of 
the nine rows of the character definition. 
Nine DATA strings are read, converted to 
decimal values and POKEzd into the correct 


(Screen) 
+ 4*#Screen) 


memory addresses. The new character 
font is then selected with the NewChars 
procedure and the design is printed in 
Window# 1. 

Listings three, four and five control 
which font is used in which window. Each 
window has a biock of information associ- 
ated with it to retain details of such things 
as the current INK and PAPER colours, 
the cursor location, the border size, and 
so on. The start addresses of the two fonts 
associated with each window are four- 
byte values — long words — offset 42 and 
46 bytes from the start of the data block. 

These information blocks can be 
shunted round in memory by Qdos and so 
they are located via a pointer system. The 
long word stored at location 163960 
points to a table of channel pointers, also 
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Listing 6 


60@@ DEFine FuNetion 
605 LOCal Ans, Bit 
61@ IF LEN(AS) = 
615 Ans = @ 
62@ FOR Bit = 
tet IF Bit 
630 BitCode = 
api IF NOT A®(Bit) 
642 Ans = 
645 END IF 
65@ END FOR Bit 
655 RETurn Ans 
66@ END DEFine BinDec 


i TO 5 


Listing 7 


78Q 
7S 
710 
71S 


INFUT#O; Filet: 


Listing 8 


BOQ 
805 
B19 
B15 
B20 


FRINT#O; 
INFUT#Q; Filet 
Base = RESFR(9@Q): 


long words. The start address of each 
channel block is read from this table, as 
listing five demonstrates. Values passed 
to this function must be channel numbers 
linked to windows and not to files or to the 
printer. 

Listing three pokes the address of the 
standard font into the appropriate position 
in the data block for a window, whereas 
listing four pokes the address of the new 
font in RAM. Beware of using non- 
alphabetical fonts for the command and 
listing consoles -— Window#0 and 
Window#2 — because listings, com- 
mands and error messages become 
unreadable. 

Listing six is where the DATA strings 
are processed into decimal values. The 
function begins by disposing of a special 
case by returning zero if a null string is 
passed to it. The FOR..NEXT declaration 
in line 620 reflects the fact that only five 
bits of each byte are used in character 
designs. 

The design of the function makes it 
impossible for it to crash. All valid string 
lengths are catered for, with only the first 
five characters being recognised in over- 
long strings. Spaces and zeros are 
treated as binary 0 and any other charac- 


>» LEN(A®) : 
CODE (AS (Bit) ) 
INSTR 
Ans + 2° (7-Bit) 


BinDec 


@: RETurn @ 


EXIT Bit 


DEFine PROCedure SaveChars 

PRINT#@; "Name Device and File :-" 
SBYTES Filet#, Base, 
END DEFine SaveChars 


DEFine FPROCedure LoadChars 
"Name Device and File 


LBYTES File, 
END DEFine LoadChars 


(AB) 


teris deemed to be a binary 1. This type of 
implicit error-trapping is not always pos- 
sible but when it can be achieved itlends a 
satisfying elegance and robustness to a 
program. 

Rather than carry-out the foregoing 
process each time a program uses anew 
character set, there are two methods of 
introducing previously-designed charac- 
ter sets quickly to a program. The fastest 
option is to save the font area to a file and 
reload it when required. Listing seven 


Q" creates a command which, when typed- 


in, prompts for a file. Listing eight reloads 
the file contents into a new reserved RAM 
area identified by the variable Base which 
can then be used by the QLChars and 
NewChars procedures to switch between 
fonts as before. 


Disadvantage 


This method of font storage is quick and 
easy but it has its disadvantages. The 
second storage method creates its own 
listings which can be merged with other 
programs. This method is ideal for games 
which re-define only a few characters. 

Listing nine creates a file containing a 
procedure for installing new characters 
and the DATA statements which define 
them. These DATA statements contain 
decimal values rather than the bulky 
pseudo-binary strings used in the main 
program, You may wish to change the 
filename suggested in line 915. Lines 
5000 to 5075 of this program are then 
listed to it. The high line numbers ensure 
that the listing is unlikely to clash with 
existing lines in the programs with which it 
will be merged. 


FAQ 


Base 


Listing 9 


780 
98S 


DEFine FROCedure WriteOut 
LOCal loop, Chase, Cline, 
LOCal Linum, D#, O%, Cs 
RESTORE 1@@@: OPEN_NEW#3, 
LIST#3, 5@00 TO 5a@99 
PRINT#3; "S10@ REMark New Characters" 
OS = "'"s CH=") "s Linum = 5102 
REFeat loop 


Cbhytet 


flpi Char tmp 


READ D¢$: PRINT "Copying "3; Ds 


PRINT#3, Linum;" DATA "; 
IF LEN(D$) * is EXIT loop 
Chase = Base +277 +CODE (DS) *9 
FOR Cline = Chase TO Chase + 8 
READ Cbyte#: PRINT#3, C;PEEK (Cline); 
END FOR Cline . 
PRINT#3: Linum = 
END REFeat loop 
PRINT#3: CLOSE#3 
END DEFine WriteOut 


QS; Dt; OF; 


Linum + °-5 
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Listing 1@ 


1@@@ REMark Character Definitions 
1002 DATA oo 
1004 DATA "1" 
10@6 DATA "11" 
1@@8 DATA "i111" 
1@1@ DATA "1111" 
1912 DATA "t1111i" 
1014 DATA "1111 " 
1@16 DATA "1i1i " 
1018 DATA "11" 
1920 DATA "i" 
i922 DATA 

1@24 DATA " #*#* " 
1024 DATA "* * #" 
1@28 DATA “" * * " 
1020 DATA " *%#" 
1032 DATA "*# eee” 
10324 DATA "** ex" 
10346 DATA " *** " 
1038 DATA " * * " 
1040 DATA " * * " 
1942 DATA 

1044 DATA 

1046 DATA 

1948 DATA "— $" 
105@ DATA " & $" 
1052 DATA "% $"' 
1@54 DATA " #® $" 
1056 DATA "— $" 
10358 DATA "" 

1060 DATA "" 

1962 DATA "END" 


it t 
Listing S@ 


5Q@Q@@ DEFine FROCedure WriteIn 
5@@5 LOCal X, loop, D#, Chase, 
50102 Base = RESFR(9@0): Chase 
S@iS FOR xX = @ TO 8646 STEF 4 


3020 POKE_L. Base+X, FPEER_L (Chase+X) 


S@25 END FOR X 


5030 PRINT#@; "GQL set copied." 


S025 REFeat loop 


5848 READ Dé: IF LEN(D$) = 2s 
5045 CharBase = Base -277 +CODE (D#) 


The routine then creates a number of 
DATA statements beginning at line num- 
ber 5102. Aloopis repeated once for each 
character definition. The standard ASCIl 
character is copied in quotes as the first 
item ina DATA statement. A FOR..NEXT 
loop then cycles nine times, once for each 
line of pixels in the character definition. 

The routine PEEKs data from the 
reserved memory area to avoid having to 
convert the DATA strings into decimal 
values once more. The DATA strings are 
read and discarded to keep the READ 
cursor up-to-date as the process moves 
from character to character. At the end of 
each DATA statement a newline is printed 
and the line number is incremented by 
five. 

Each program line created consists of a 
line number, the DATA keyword, a single- 
character string identifying the character 
being defined and eight decimal values 
between 0 and 255 interspersed by 
commas. When the final DATA item, 
“END”, is detected it is written to the file 
and then the file is closed. 

To use this feature, first design and 
incorporate a few new characters into a 
font and then type-in the command Write- 
Out. The file will be created in the way 
described. Next, load the program which 
will make use of the new characters and 
MERGE the char__tmp file with it. At the 
beginning of the program include the 
command Writeln which will copy the 
standard font into RAM, read the DATA 
statements, incorporate the new charac- 
ter designs and set the default window to 
use the new font. 


@ In next month's SuperBasic more 
character manipulation will be explained. 


Char Base 


RESTORE S102 


EXIT loop 


*9 


SA5Q FOR Chase = CharBase TO CharBase +8 


S@3S5 READ Byte: PORE Chase, 


5050 END FOR Chase 
2065 END REFeat loop 


5068 Chase = PEER _| (PEER _L (163960) 


S@69 POKE_L Chaset+42, Rase 


“070 PRINT#@; “Font installed" 


5@75 END DEFine WritelIn 
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DIY TOOLKIT 


Simon Goodwin adds new commands to QL SuperBasic 
which let you keep several SuperBasic programs in 
memory and swap between them instantly. 


L SuperBasic is a great prog- 

ramming language butithas a 

strange limitation for a multi- 

tasking machine. You can 
have only one Basic program in memory 
at a time. If you want to edit or run a 
different program you must throw away 
the existing program and load another in 
its place. MultiBasic lets you keep several 
Basic programs in memory at one time 
and swap between them at will. You can 
edit or run the current program in the 
usual way, while the others are held as 
separate QL tasks. 

This column introduces four Super- 
Basic commands — UNLOAD, RELOAD, 
RESAVE and REMOVE. They have been 
tested successfully on the QL, Minerva 
and the Thor XVI. They occupy less than 
500 bytes of memory when loaded. 

You can type-in the listings and use the 


commands in your own programming. 
There is insufficient room to note all the 
ramifications this month but my next 
column will explain how the commands 
work and explore some of their implica- 
tions. 


Easy 


Interactive testing is easy with MultiBa- 
sic because it saves the complete prog- 
ramming environment, including variable 
values, arrays and temporary results. You 
can UNLOAD a program at any time, even 
while it is running, and when you 
RELOAD it, it will continue where it left off. 

MultiBasic keeps track of all the local 
variables and procedure calls in progress. 
You can break into a program, UNLOAD it 
and CONTINUE later. In the meantime 
you can load or RELOAD any number of 


other Basic programs. This is very useful 
when working with Basic compilers, which 
expect you to load programs into the 
interpreter before you compile them, It 
means you can use small utilities, written 
in Basic, without losing the big program on 
which you may be working. 

The bigger your programs the more. 
time you can save with MultiBasic. Super- 
Basic loading becomes slower and slower 
as program size increases, while Multi- 
Basic RELOAD time is proportional to the 
length of your program and less than a 
second even for programs with thousands 
of lines. Once you have loaded a program 
you never need re-load it the slow way 
until you run out of memory or turn off the 
computer. 

MultiBasic is specially useful because 
Basic loading is so slow on the QL. The 
Microdrive light flicks on and off, tugging 
the tape in short bursts, as the QL reads 
the program text in 512-byte portions and 
converts it into internal ‘tokens’. The 
conversion takes a long time, whatever 
the device. Disc loading is almost as slow 
as Microdrive; even RAM discs are pain- 
fully slow, because the text must be 


* Version 3.2 Copyright 1988-90 Simon N Goodwin tst.1 do Does it exist? 
* ~ bne.s do_cmd If not, do the command 
1 24830 Opcode of BRA.S #-2 
aint as “ * AO -> task, D4 is task ID, Di is ID of "next" task 
* 
aceie bit a raph i BP. INIT vector move.1 a0,dé Save) base address of task 
jmp - (a2). Add new commands addq.1 #2,a0 Skip BRA.S at the start 
* nd move.1 (a0) +,d5 Bet length 
* SHARED KEYWORD CODE cmpi.w #$4AFB, (a0) + Does task have @ header? 
e bne.s look_on No, don’t look for a name 
tst.b (aQ)+ Name length should be <256 
= 7 Fl for UNLOAD 
ea a pee tae = bne.s look_on Otherwise, keep looking 
reload pail a a7 Flag for RELOAD move.b O(a5,a6.1),d0 Get parameter name length 
bra b getnane cmp.b (a0)+,d0 Do name lengths match? 
resave moveq #-2,d7 Flag for RESAVE bne.s look_on No, try another task 
bra.s getname move.1 a5,a4 Copy name pointer for test 
#0,d7 Fl + REMOVE compare move.b 1(a4,a6.1),d2 Get parameter character 
yaad we z hibit moveq #711011111,d03 Mask to ignore letter case 
Bad), a4 Check for one parameter and.b d3,d2 Convert parameter to caps 
agit ease Gana eos a z and-b = (aQ)+,d3 Convert header to capitals 
beq.s pat par cmp.b d2,d3 Compare characters 
bad_par moveq #-15,d0 Report BAD PARAMETER bne.s look_on Look on unless they match 
dropout rts addq.1 #1,a4 Advance through parameter 
one_par tst.b O(a3,a6.1) Does it have a value? subq-b #1,d0 Count one less to check 
beq.s unset No, use the name instead bne.s compare Check all the characters 
move.w %116,a0 CA.GTSTR vector moveq #-1,d1 Flag that name was found 
jsr (aa) Get the value as a string * 
bne.s dropout Give up if that went wrong * If Di is negative, task was found: code at Dé, length DS 
move.1 ¢58(a6),al Get string offset (BV.RIP) * 
tst.b Of(al,aé.1) Check length is 0-255 do_cmd tst.1 d7 What operation is needed? 
bne.s bad_par No good, length >= 256 bmi.s unloda Negative, UNLOAD / RESAVE 
lea.l 1(al),a5 O(AS,A6.L) -—> length byte bne reloda Positive, RELOAD 
bra.s tst_len * 
« #* REMOVE routine —- if we found a task, we can remove it 
unset move.1 24(a6),a0 Find BASIC’s Name Table * 
move.w 2(a3,a6.1),d0 Index of actual parameter remova tst.1 di Was the name found? 
lsl.w #3,d0 N.T. entries take 8 bytes | bmi.s kill_it 
adda.w d0,a0 (A0,A6.L) —> N.T. Entry bad_job moveq #-2,d0 Report INVALID JOB 
move.-w 2(a0,a6.1),d0 DO is name offset in list rts 
aaveck 32(ae), a5 z Find BASIC’s Name List exists moveq  #-8,d0 Report ALREADY EXISTS 
add.w d0,a5 O(AS,AS.L) —> length byte rts 
tst_len tst.b O(aé,a5) Check name is 1-127 chars unknown moveq #-7,d0 Report NOT FOUND 
ble.s bad_par Z rts 
kill_it move.1 d4,d1 Set up task ID 
11 the task ne . 
2 Look up the required name amongst a e tasks ecatiedd #5,d0 MT.FRIOB trap key 
; #1 Remove the task 
look_up moveq #0O,d1 Start with task 0,0 trap 
bra.s scan Scan all the tasks rts Report back to caller 
k i At end of task tree? = : : 
er pode nd cmd If so, do the command # UNLOAD routine - copies BASIC to an image in task RAM 
#0,d2 Scan from top of tree * 
ecuat sees di,d4 ace itemise ID unloda tst.1 di Did we find the name? 
moveq #2,d0 MT.JINF trap key bpl.s make_it No, so create it 
trap 1 Find the next task addq-w #1,d7 Is this UNLOAD? 
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converted into tokens and that takes 
much longer than fetching the raw data. 

MultiBasic stores the program in its 
tokenised form, so it can be moved 
through memory directly into the interpre- 
ter. MultiBasic can move 270K per 
second, even on the slowest QL, so it is 
much faster than existing ‘quick loaders’. 
It can load about one megabyte per 
second on 16-bit machines like the Thor 
or Atari QL emulator and manages 500K a 
second on a QL with fast memory. 

MultiBasic makes it easier to write 
often-used utility programs in Basic, as 
there is no need to re-load them — and 
tokenise them — whenever they are 
needed. It is particularly useful for ‘tem- 
plate’ programs which need regular 
tweaks for specific tasks. 

MultiBasic also speeds SuperBasic 
program development and testing. You 
can UNLOAD a copy of a program before 
making changes and then RELOAD it 
instantly if problems occur in the revised 
version. It is still a good idea to SAVE to 
disc or cartridge every so often, in case 
you lose the entire contents of memory. 
Thankfully, SAVE is much faster than 
LOAD. 

When you UNLOAD or RESAVE a 
MultiBasic task the current command line 
is saved along with the program. Any 
commands after the UNLOAD will be 
executed as soon as you RELOAD that 
image, so: 


UNLOAD prog : LIST 


Saves ‘prog’ in such a way that itis LISTed 
automatically whenever you RELOAD it 
later. Alternatively, you can make a 
program RUN as soon as itis RELOADed 
by saving it like this: 


RESAVE prog : RUN 


Extra statements after RELOAD are 
ignored; like LOAD and LRUN, RELOAD 
discards the remainder of the command- 
line when it loads a new program. It is 
acceptable to use UNLOAD inside a 
program as it runs. When the program is 
RELOADed it will continue running from 
the point after the UNLOAD statement, as 
if it had never stopped. You can arrange 
sequences of programs which load one 
another and communicate through the 
MEM device featured in DIY Toolkit last 
summer. 

MultiBasic reports ‘out of memory’ if 
there is insufficient free memory to 
UNLOAD or RESAVE a task. It complains 
‘bad parameter’ if you do not specify a 
valid task name. It accepts any sequence 
of 1-127 characters, in single or double 
quotes, or a string variable or expression. 

Unquoted names are allowed so long 
as they are not used for some other 
purpose in the program. The file com- 
mands SAVE, LOAD, LBYTES and so on 
use the same rules, although they do not 


allow such long names. The shortest 
practical names are single letters or digits. 

The ‘invalid job’ report means that you 
have tried to RELOAD or REMOVE a task 
which does not exist or there are so many 
tasks that Qdos has insufficient space to 
keep track of another one, which is very 
unlikely. 

You may get a ‘channel not open’ error 
if you RELOAD a task which was using 
channel numbers above #2 when you 
UNLOADed it. UNLOAD saves a copy of 
the current task but it leaves the original in 
SuperBasic. 

When you type CLEAR, CLOSE, 
LOAD, LRUN or NEW, the interpreter 


beq.s exists If so, it already exists reloda tst.1 di Did we find the name? 
ber.s kill_it Otherwise it’s RESAVE... bpl.s unknown 
make it moveq #0,d0 MT.INF trap key load_it move-b 0(a5,a6.1),d7 Find name length for 
ze trap #1 Find system variables later 
trap #O Stop anything moving! addq.b #1,d7 
or. #$700,6r Disable interrupts bele #0,d7 Round length to even 
move.l a0,as AS -> system variables moveq #0,d0 MT.INF Trap key 
move.1 20(a0),d3 DS -> End of BASIC+1 trap #1 Find system variables 
sub.1 16(a0) ,d3 D3 = Length of BASIC area move.l1 a0,a4 Save system var. pointer 
~ move.1 20(a0),d1 D1 -—> End of BASIC+1 
* D3 is length of ‘data’ area. Get *code’ length into D2. sub.1 16(a0),d1 D1 t= Length of BASIC area 
*” sub.1 d5,d1 Di is delta size 
moveq #18,d2 D2 = Minimum ’code’ header beq-s size_ok No change required 
move.b O(a5,a6.1),d5 Find length of task name bpl.s = shrink Discard excess space 


addq.b #1,d5 . and ensure it is even Expand by DS5-D1 bytes 


belr #0,d5 Round length to even moveq #22,d0 MT.ALBAS trap key 

add.b d5,d2 Add name to *code’ length trap #1 Expand BASIC work space 
* tst.1 do Check for OUT OF MEMORY 
* Allocate transient program memory for the image beq.s size_ok 


* rts 


alloc8 moveq #0,d1 Owner: SuperBASIC shrink moveq #23,d0 MT.REBAS trap key 
move.1 di,al Put task in TRNGP trap #1 Shrink BASIC work space 
moveq #1,d0 MT.CJOB trap key * 
trap #1 Create a transient task * Now work out the address of the code in the task space 
tst.1 do Check for errors + 
bne.s unlock Give up if CJOB failed size_ok moveq #10,d2 Skip fixed part of header 
* add.b d7,d2 Skip name (max length 127) 
* Set up a dummy task header add.1 d2,d6 Point Dé at saved Ab & AT 
* move.1 dé,aS Set source pointer 
move.w #looper, (a0)+ START is BRA.S START ! trap #0 Stop BASIC space moving 
move.l d3, (ad)+ Store length AFTER header or.w #$700, sr Disable interrupts 
move.w #84AFB, (a0)+ . 
add.1 aé,a5 Aé& cannot change now move.1 aé,a0 Offset user A7 by delta Aé 
move.b (a5)+,d0 Get length of task name sub.1 (a3)+,a0 Delta address of BASIC 
ext.w do add.1 (a3)+,a0 
move.w dO, (a0)+ Store length (always >0) move.1 a0,usp USP is delta Aé& + old USP 
setname move.b (a5)+, (a0)+ Copy name a byte at a time move.l 16(a4),a0 Get destination, SV. BASIC 
gubq.b #1,d5 Use even count in DS to isr.1l a3,d5 Count long word pairs 
bne.s setname » ensure AO ends up even subq.1 #1,d5 Adjust for DBRA 
move.l ad, (ad)+ Save base address of BASIC copy move.1 (a)+, (add+ Move task data to BASIC 
move.1 wusp,aS Save User Stack Pointer move.1 (a3)+, (add+ 
move.1 a5, (a0)+ dbra d5, copy 
* bra.s lockout Restart QDOS and exit 
move.l 16(a3),a3 AS —> NEW start of BASIC * 
copy_d3 ler.1 #3,d3 Count pairs of long words define dc.w 4 Number of procedures 
subq.1 #1,d3 Adjust for DBRA loop dc.w «unl oad-* 
copier move.1 t{a3d)+, (add+ It’s fast and safe to move dc.b 6, >UNLOAD" 
move.1 (a3)+, (a0)+ - eight bytes at a time dc.w reload-* 
dbra d3, copier Move 270-540 QOL K a second de.b 6, * RELOAD’ 
lockout moveq #0,d0 Report no error dc.w resave-* 
unlock andi.w #SD8FF, sr Re-start @DOSsS de.b 6, *RESAVE” 
rts dc.w remove-—* 
* de.b 6, * REMOVE’ 
* RELOAD <name> - fetch task from (D6), length in DS dce.w 0,90,0 No functions 
* end 
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closes all channels except the standard 
windows #0, #1 and #2. If you use those 
commands, RELOAD a program and 
CONTINUE from part-way through, 
Qdos will give an error if you try to use 
other channels without re-opening them 
first. 

MultiBasic stores the names and 
addresses of current resident extensions 
such as DIY Toolkit routines when you 
UNLOAD. If you load extensions part-way 
through a session they will not be avail- 
able while you RELOAD earlier files. 
Absent procedures cause a ‘bad name’ 
error, while missing functions give ‘error 
in expression’. 

MultiBasic tasks can be treated like 
other tasks. They share the same format 
and area of memory with other tasks, so 
you can manipulate them with standard 
Toolkit commands. There is no need for a 
new command to list the MultiBasic tasks 
— you can use common instructions like 
JOBS or LIST__TASKS. You can also 
dispose of MultiBasic tasks once they are 
no longer useful with RJOB, REMOVE 
—TASK or the DIY Toolkit PURGE com- 
mand, 


MultiBasic includes its own REMOVE’ 


command which will dispose of any task, 
given its name in upper- or lower-case. 
REMOVE can be used on machine code 
tasks as well as SuperBasic. You can stop 
a Clock with: 


REMOVE CLOCK 


The only limitation is that you must 
know the name of the task you want to 
remove. Some tasks, like the Psion Quill, 
do not have a name, so they cannot be 


clobbered by REMOVE. You must use 
RJOB or some other command which lets 
you specify a task by number. 


Limitation 


MultiBasic will not create two tasks with 
the same name. If the name you UNLOAD 
is in use, MultiBasic reports ‘already 
exists’. You must pick either another 
name, or RESAVE, which will over-write 
the old task. If you load the same machine 
code task several times, REMOVE will get 
rid of the first one with a matching name 
every time you use it. REMOVE scans 
tasks in the same order as JOBS and 
LIST_TASKS. 

The MultiBasic code is listed in two 
forms. Listing one is the commented 
assembly code which will be explained in 
my next column. You will need an 
assembler to convert this into code you 
can run; | use HiSoft Devpac. Listing two 


is a simple Basic loader which reads the 
machine code from data statements and 
stores it in a file. It is easier to enter this 
listing, especially as lines 100-580 are the 
same for every DIY Toolkit package but it 
is relatively difficult to customise the data. 
Once you have created the code file you 
can add the new commands to Super- 
Basic, like this: 


base=RESPR(446) 
LBYTES “filename” ,base 
CALL base 


Thereafter you can use UNLOAD, 
RELOAD, RESAVE and REMOVE in your 
own programming. 

In my next column | shall delve into 
listing one and explain how MultiBasic 
works, The code includes several new 
tricks for DIY Toolkit readers, including 
task handling and case-independent 
comparison. It also shows how you 
can pick up ‘name’ parameters without 
the need for the user to type quotation 
marks. 

| have been developing MultiBasic 
since the summer of 1988 and the version 
listed has been condensed for the maga- 
zine, so | plan to explain a few ways the 
code can be expanded and improved, 
along with notes on the implications of the 
new commands. 


@ After more than three years | am 
running out of ideas for new QL com- 
mands and functions which will fit the DIY 
Toolkit format. Please send your sugges- 
tions if you would like me to explore a 
specific areas in this column or to imple- 
ment new and original commands. 


REMark Sinclair QL World HEX LOADER 


REMark Space requirements for the machine code 


REMark by Marcus Jeffery & Simon N Goodwin DATA 4446 
CLS: RESTORE : READ space: start=RESPR (space) REMark Machine code data 
PRINT “Loading Hex..." | HEX_LOAD start DATA * 43FA018C34790000’ , °01104ED27EFF400A" 
INPUT "Save to file..."s5f% DATA * 7E0160067EFE6002’ , ’ 7E0049EBOCOBBBCC’ 
SBYTES f#,start,byte : STOP DATA ° 670470F 14E7S54AS3’ , °E800671A30790000" 
: DATA °01164E9066EE226E’ , * COSB4A31EBO066E2’ 
DEFine FuNction DECIMAL (x) DATA ° 4BE900016016206E’ , *00183033E802E748" 
RETurn CODE (h® (x) )-46-7# (h(x) 979") DATA * DOCOSO3S0EBO2Z2AGE" ,” COZ0DACO4A36D000" 
END DEFine DECIMAL DATA * 6FCO720060044AB1’ , °6730740026017002" 
: DATA ”’ 4£414A80646302C08’ , *54882A1B0CSB4AFB’ 
DEFine PROCedure HEX_LOAD(start?) DATA *466E4481866E01035’ , ’ E800B01846D8284D" 
byte = 0 : checksum = 0 DATA * 1434E80174DFC403" , *C418B60266C8528C” 
REPeat load hex digits DATA °S300646EC72FF4A87’ ,’ 6B10660000884AG1" 
READ hs DATA ”* 6BOC70FE4E7570F8’ , ° 4E7570F94E752204" 
IF h@="#" > EXIT load_hex_digits DATA * 70054E414E754AB1" , ’ 6A06524767EB61EE” 
IF LEN(h#) MOD 2 DATA ” 70004E414E40007C’ ,” 0700264826280014" 
PRINT"Odd number of hex digits ini “ph® DATA '96A8001074121A3S’ , *EG005205086850000" 
STOP DATA *D405720022417001’ ,’ 4E414A80663030FC” 


END IF DATA *40FE20C330FC4AFB’ , ’ DBCE101D48B030C0" 
FOR b = 1 TO LEN(h®) STEP 2 DATA ” 1ODDS30S66FA20CE’ , ’ 4E6D200D266B80010" 


hb = DECIMAL (b) : lb = DECIMAL (b+1) DATA *Eé68B538320DB20DB’ , * 51CBFFFA7000027C” 
IF hb<O OR hb>35 OR 1b<O OR 1b>15 DATA * DBFF4E754A816A82" ,’ 1E35SE80052070887" 
PRINT"Illegal hex digit in: "sh® = STOP DATA *000070004E412848" , °2228001492A80010" 
END IF DATA °928567126A0C4481" ,"70164E414AB06706" } 
POKE start+byte, 16#hb+1b DATA ”* 4E7570174E41740A" , "D407DC8226464E40" ' 
checksum = checksum + 16#hb + Ib DATA *007C0700204E9 LDB’ , "D1 DB4E6020600010" j 
byte = byte + 1 DATA *E468D536520DB20Db” , ’S1CDFFFAS09E0004” 
END FOR b DATA *FE7CO6554E4C4F 41" , * 4400FE760652454C”" 
END REPeat load_hex_digits DATA ” 4F414400FE700652’ , ?455341564500FE6A’ 
READ check DATA *0652454D4F544500" , "000000000000" , *#’ , 40312 
IF check <> checksum 
PRINT"Checksum incorrect. Recheck data.“;5TOP 
END IF 
PRINT"Checksum correct, data entered at: "start 
END DEFine HEX_LOAD 
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‘FLASHBACK 2. 


here are two versions of Flash- 
Back available and this article is 
based using the enhanced Spe- 
cial Edition version, otherwise 
known as FlashBack 2. The bulk of the 
functions provided are common to both 
versions. As the cost of an upgrade from 
FiashBack 1 to 2 is low and the extra 
functions are desirable, it is suggested 
that the change is well worth making; but 
consider how much spare memory your 
QL has before making the change 
One significant difference between the 
two versions is the memory space 
required; it is appreciably greater for the 
SE version. Another difference “is the 
facility to have more than one copy of 
FlashBack running concurrently. The two 
factors may be related for some users. In 
my system, the original FlashBack pro- 
vided an answer to a problem which could 
not be solved with Archive — that of 
running two unconnected databases 
simultaneously. It was possible to com- 
bine the two into one file, while still being 
able to treat them separately when 
necessary 


Split files 


Unfortunately, the SE version caused 
the QL to run short of memory space, with 
the result that the combined file had to be 
split once more. As it is possible to run two 
copies of FlashBack SE without a great 
memory overhead, the practical effect 
is that access to any of the data in either 
file is as fast as ever; the total memory 
used is about 20-30KB more and | can 
now choose not to have the larger of the 
two databases active unless it is really 
required 

Suppose you have aname and address 
database, with telephone numbers, which 
needs to be active all the time. My DBA 
file of 432 records takes about 50KB of 
disc space. Then consider a less-often- 
used database, which you can afford to 
load only when needed and kill afterwards 
if space is required. My example is a 
German-English dictionary of 2,073 
records which takes about 127KB of disc 
space. Back-tracking to Archive days, 
these two together took about 40KB more 
space as __DBF files. 

Because even run-time Archive needs 
about 50KB in which to work, running 
each database under its own copy of 


30 


Bryan Davies 
conducts a 
comparison between 
Flashback 1 and 
Flashback 2 for 
those thinking of 
upgrading. 


mee 


Archive required close to 300KB. In 
addition, because of the nature of the 
Psion programs, you have to use a 
switching program as well and that will 
take at least another 10KB, possibly much 
more but you can now make Archive 
EXEC-able and switch with CTRL+C as 
explained in the DIY Tookit article in the 
October, 1989 issue 


Saving memory 


It is clear that moving the databases 
into FlashBack can save memory but the 
advantage is more than that. | ran one 
copy of Archive and had a swapping 
routine to change databases but it took 
several minutes to make the change from 
one to the other and that is not much use 
when you need to look up a telephone 
number or word in a hurry. The equivalent 
—_DBA files load and save much faster 
Since FlashBack is a pop-up program, 
your two copies can be run alongside one 
or more other programs, without the need 
of a special switching program 

The only area in which the user can 
exercise control over memory usage is 
the default setting for Work Space, Save 
Screens, References per Record, and 
Maximum Number of New Records to be 
added per session, which can be altered 
with the CONFIG__BAS program; in this 
program, Work Space is referred to as 
Maximum Text Expansion. 

When buying FlashBack 2 do not 
tamper with any of those settings until the 
instruction files have been loaded and re- 
saved, because those compressed files 
require higher values for work space, 
references per record and so on than you 
may need in daily operations. The Work 
Space figure shown at the left end of the 
status area is a direct measure of the 
number of characters which can be added 
before the program says enough. Gene- 
rally, this should be the multiple of the 
number of records likely to be added in 
one session and the average record size. 

lf records are typically two full lines long 
— about 160 characters — and you do not 
expect to add more than 30 of them per 
session, the Work Space required is 160 x 
30 = 4,800. Bear in mind that it is a quick 
process to save the database and reload 
it and that will restore the work space to its 
set maximum, So it is no disaster to have it 
reduce to zero now and then. Many 
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databases will stabilise after a fairly short 
period of use, with few records being 
added; | rarely need more than 1,000 
characters work space and a correspond- 
ing maximum New Records figure of 20. 
The References per Record figure is not 
well explained in the instructions and | do 
not pretend to understand fully its signifi- 
cance; suffice it to say that if you do not 
use sub-records a value of 1 is likely to be 
sufficient. 

A memory area not covered by the 
CONFIG__BAS program is that required to 
store the FlashBack screen while it is not 
being displayed. If you elect to answer N 
to the Save Screen option it is of no 
consequence what size the FB screen is; 
it is not saved and has to be re-drawn 
each time FB is called up, so there is no 
memory tied-up in holding its details. This 
is more an irritation than a real hardship, 
as the programs over which FB is to be 
called up will usually have their own 
screen-refresh keying — e.g., F4 for The 
Editor and text’, SHIFT+F5 for Psion 
programs, -- which can be invoked to get 
rid of the FB display. 

On the other hand, if you answer Y to 
this option you are causing up to 32KB to 
be reserved for the FB display oetalis. The 
smaller the display the le 
required to save it: a full-w 
height display takes 
minimum-size display t 
memory taken is noted | 
screen, accessed by keyi IFT+F4. 
Pruning all membry usage €an save about 
40KB, which may make all the difference 
between getting FB in co i 
your usual applications p 


> re-sizing 


really need available all the t tirr Da 

You may suffer the same delusion 
if the window used by FB is small you fan 
to regard the program as being only a 
small thing. That is an injustice to the 
program and it can leave you wondering 
where all the memory has gone, forgetting 
that FB may well be taking several 
hundred KB of it. 

Searches are accomplished remark- 
ably fast, the speed seeming to be the 
same regardiess of the size of the 
database and the position(s) of instances 
of the specified search string in it. As with 
other operations you need to check what 
field is current on the status line before 
starting a Search. You can become 
very irritated by seemingly-inconsistent 
behaviour, induced by your failure to set 
the appropriate field in which searching 
occurs. When a global search is required 
— looking for a string of characters any- 
where in any record — the Field 00 All 
setting is necessary. 

Searching for a string in a specific field 
requires that field to be the current one at 
the left of the status line when the Search 
is initiated. FB will not search for a string in 
a specific field — it looks only at the start of 
a field. The search is insensitive to letter 
case, so that upper or lower can be typed- 
in. 
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@ with all the other records which did not 


One of the added functions which take 
FB to a higher level of capability is the 
facility to specify records which are to be 
included in, or excluded from, Group-ing. 
The Include and Exclude commands 
enable the user to tailor a Group, to 
circumvent the relative inflexibility of the 
Group command. You may find at some 
stage that you want to delete a number of 
records from a database and there are too 
many of them to be removed quickly using 
the Delete command on each of them 
individually. 

Look for some common factor in these 
records; perhaps you now have enough 
Biggles books to take them out of the main 
book list and give then a separate listing 
and they can be identified by the one word 
“Biggles”. The Group command can then 
be used, with “Biggles” inserted on the 
status line as the Group string; this will 
work only if you have a field — e.g., 
Category — which starts consistently with 
“Biggles”, because the Group command 
does not look within a field, only at the 


start of it. 
Oncert hi Group has been created you 
ay fin some of the records ir in it.¢ 


e Category field, ir 
“author has copied Captain Johns’ style. 
Such records can be marked by making 
them current and using CTRL+X to 
exclude them. 


Grouping 


When the keying is used the current 
record apparently disappears, although it 
djas merely been put into the background 


neh uded with them ~ reference 
1m tings, perhaps. Mark 
them the same way bu using CTRL+I. | 
hope it is obvious that you have to mark 
records for inclusion before Grouping — 
they will not be available for inclusion 
thereafter. Note that the Include and 
Exclude functions are not mutually exctu- 
sive; they can be used together when 
creating any Group. The total number of 
records now current is noted on the status 
line, against “Ref No”. 

The previous paragraph began as a 
note on deleting records but apparently 
ended with those records being the only 
ones left in the database. Remember that 
the fact that records are not currently 
visible, or accessible, does not mean that 
they have been removed from the data- 
base. Both the Group-ed and non-Group- 
ed records are still there but you now have 
the possibility of handling them differently. 
Use the CTRL+W command to Write the 
Group out to disc. You must use a 
different _DBA file name from the one for 
the current (complete) database or you 
will over-write the latter. The newly-saved 
file can then re reloaded later, as a 


wie: 


Biggles-only database. Returning to con- 
sideration of your main database, the 
process of Group-ing on Biggles did not 
reduce the number of records. 

To delete the Biggles records from the 
main databse, Kill the Group to get all 
records displayed again, then Index on 
the Field containing the Biggles refer- 
ence; if that word is the first in the field it 
should put al! the unwanted records next 
to each other. Go to the first record to be . 
deleted and key CTRL+ X to exclude it. It 
should be possible to go through the 
whole batch of unwanted records quickly 
by holding down the CTRL+X keys until 
all those records have been excluded. 
This is safer than using Delete, because 
you can always make the excluded 
records current again by keying CTRL+K 
if you have excluded a record in error. It is 
also a faster operation, with less keying. 

Once all unwanted records have been 
excluded from the current display you can 
Write out the file and then re-load it, when 
it will contain only the records which do 
not concern Biggles books. Always take 
care when Write-ing the database to disc 


pet vit you have been performing such separa- 


yoperations; check that the file name 
re tatus line is the one you want. 

provement of FB2 over FB1 is 
make successive Group 
get at sub-sets of records. 
FB1 would allowlyou to Group on, say, all 
records having a ield starting with “Tel. 
(01)", to reduce the’¢urrent database to 
records including London telephone num- 
bers but you could go fo further than that. 
FB2 allows you t to,Group as many times 
as required. vext step might be to 
Group on ‘ seit to reduce the 
current databa: 


) 


lf that does not reduce you to zero 
records —impossible, because all records 
are brought back if you try to delete the 
last one in a Group — you could have a go 
at the address, by Group-ing on “East 
Cheam”, for instance. Having said all that, 
reducing the number of current records 
makes no perceptible difference to the 
speed with which FB operates. A string 
search will be just as fast for 1,000 current 
records as for 10. The advantage is when 
using other commands — Write or Print. 

The ALTKEY and Last Line Recall 
functions of Toolkit Il are very useful, and 
can be very irritating, too. If often takes a 
good dea! of experiment to get the desired 
result from an ALTKEY setting and you 
may make frequent use of Last Line 
Recall to modify the definiton. The recal- 
led line is regularly incomplete or incor- 
rect, even with later Toolkit versions; this 
is particularly true with longer lines. 

So to circumvent this try typing the 
ALTKEY definition into a FB record. You 
can use the CTRL+T command to Trans- 
fer the definition to the SuperBasic line, so 
that you know the recall process will be 
correct each time. An FB record can be 
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used in place of an ALTKEY text setting. 
Standard positions of text of aimost 
unlimited length can be deposited into an 
underlying program quickly. 

Increasing database file sizes leads to 
lost time looking for particular records. 
Finding one out of 10,000 records when 
you are not sure of the contents can be 
frustrating. The View command — either 
as a result of a Group operation or on its 
own — enables you to cursor through 
records quickly but that is still a fairly slow 
process when there are many records. 
FB2 enables you to initiate a string search 
from the View window.The search is 
made from the start of the field shown on 
the View screen and it is necessary to 
make the appropriate field current by the 
Group command, if it is not already there. 


Case sensitive 


After the word “View” on the status line, 
a cursor blinks awaiting input of a search 
string. Typing-in the first letter of a word 
for which you are looking makes the first 
record which has the letter as the first one 
in the field the current one. The highlight in 
the View screen may be on a record with 
“Adams” as the first word in the high- 
lighted field and typing “K” on to the status 
line will then take the highlight to a record 
with, say, “Jones” as the first word in that 
field. Adding a “u” after the “J” might then 
take the highlight to “Justice”. and so on. 

Note that the search in case-sensitive 
and the first letter of the string is likely to 
be a capital. When such a search yields 
no action check that you are giving the 
string letters the correct case and that the 
file is Group-ed or Index-ed on the field to 


be searched. If no Group or Index com~. 
mand has been given the search willbe — 


made on Field 01. In the cas@ of myname 
and address file there is n@ Field 01 in use 
and a search from the View window yields 
nothing until the Group of Index command 
has been used with the. meld set to 03 or 
04. 

It may be worth poifting out that you are 
not obliged to start recards with Field 01. 
In the case of my file it is now. .a historical 
matter that the first field is 03 6 ti 


settle on a good way of separating ther ok 


when necessary. Making one database 
from Fields 01 and 02 and another from 
Fields 03 and 04 gives you a simple way 
of separating them; Group on one field 
and you will exclude all records which do 
not use that field. 

My original file had this structure until 
FB2 appeared on the scene; the greater 
size compared to FB 1 compelled me to 
split the file into two parts,which was done 
easily by Group-ing first on Field 01 and 
Write-ing the file out, then Kill-ing the 
Group and creating another, based 
on Field 03, and Write-ing that out to 
another file. It would be easy at some time 
in the future to re-combine the two 


32 


databases, if memory space permits use 
of the larger file 

When deciding on the layout of fields in 
a database file, bear in mind the form(s) 
the output will take. If queries are to be 
shown on the screen only, fields can be 
packed as closely as makes sense 
visually. Where a printout is required the 
field layout should take account of that 
layout. The obvious case is a name and 
address file. from which lists or labels may 
have to be printed. The various parts of 
the name and address should be in 
separate fields. It is not necessary for the 
fields to be on separate lines, since the 
lines on which they are to be printed can 
be specified when using the Report 
Generator function. 

If printing is to be done direct from FB, 
however, the separate parts of the name 
and address should be on separate lines 
in the records. The Field Name is not 
printed; thus, for example, “TEL.” needs 
to be in the field contents as well as being 
the field name if it has to be printed. Bear 
in mind that the Print command will act on 
the whole file if you do not specify a Group 
of records; printer paper may soon be 
rushing out all over the place. 

A big advantage over Archive is the 
ability to add fields easily and quickly. The 
first step, as always, is to save and back- 
up the current database. Key CTRL+E to 
Edit field contents. If you want to insert a 
new field between the current fields 05 
and 06, use the cursor to make Field 06 
current, then key F5 and type-in the name 
alongside the 05. You have a choice of 
two actions at this point — either key ESC, 
in which case you will be returned to the 

currentrecord with nothing changed other 
than that what was previously Field 06 will 
now be 07, or key ENTER, which will 
cause a marker to be inserted for the new 
Field 06 at the cursor point. 

It is easy to consider FB as a database 
in the ‘classical’ sense ~a series of similar 
records. This is to miss a dod deal of its 
usefulness, as it is a very flexible prog- 
ram. Perhaps you need to mak@a note, or 
even create a complete document, but all 
the memory space is taken by a spread- 
sheet and program, plus, ABICr reate anew 
record in. FB and type the text, free-form, 
preferably starting at a field number 
different from those used by the main 

ase records; that makes it easier to 
find subsequently. 

When you load your WP program later 
the text can be Transfer-red to it and the 
record deleted. A record can be used as a 
development tool for ALTKEYs, for 
SuperBasic programs, or for almost any- 
thing. Most people need to make notes at 
some time and FB can aiways be popped- 
up to take them. Perhaps you should keep 
your “Jobs To Do” list this way. Although 
there is no cut and paste facility in FB the 
paste part is effectively there; the same 
record or field can be put into several 
programs using the Transfer command. 

The Archive Order command is a very 
necessary tool; it puts records in a 


sensible sequence and it permits use of 
the Locate command, which finds strings 
much faster than Find. The FB Index 
command is similar but some differences 
should be borne in mind. You cannot 
back-up an Index-ed file to reduce the file 
size as you can do with Order-ed Archive 
Files. You will not speed searches by 
Index-ing files; it may slow searches but it 
is unlikely you will be aware of this. 

One thing Index-ing does not do is re- 
order the individual records in the disc file, 
because FB works only on the memory 
file. Once the Index command has been 
given you can Write the file out and it will 
remain in the index-ed order when next 
Read in; the order will revert to that in 
which records were typed-in once the Kill 
command is used. So long as access is 
fast it should be of no concern to the user 
what order the records are in on disc. 

There is a choice of three forms for the 
Index command, with two more choices 
associated with those three. The default 
form, as displayed on the status line when 
CTRL+1 is first keyed, is 2 ABCabc. This 
is the form used by FB1. Text beginning 
with capital letters will be sequenced 
before the beginning with the lower-case 
-—e.g., AA AaB X aaB ab. That applies to 
each character in the string and an Index 
string can be up to 500 characters long, 
stretching over several fields. This means 
that you are not limited to sequencing 
records ona limited amount of data, such 
as surnames in a.name and address file. 


Changing the form 


Pressing a Space Bar before the Index- 
ing process is started will change the form 
to one of the two alternatives. 3 aBcDEf 
places records in the order they occur — 
there is no attempt to place capitals before 
lower-case or vice versa. The previous 
examples could be in the order a Aa AA ab 
aB B X ora AA Aa aB ab B X, or with other 
variations to the positions of the first five 
strings. The sequence will always take 
account of whether a letter is before or after 
another in the alphabet. This might be 
called the “dictionary method” of sorting. 
Another press of the Space Bar before the 
Index gives the third choice ~ 1 AaBbCc. 
This keeps letters in alphabetical order 
but puts capitals before lower-case for 
each letter encountered. 

The final two choices concern num- 
bers. FB1 was rigid in the way it looked at 
numeric characters; it figures that the key- 
code for 1 comes before that for 9 — see 
“character set and keys” in the Sinclair 
QL User guide — therefore 10 must be 
placed before 9 in a sequence. You could 
circumvent this by placing a 0 before 
numbers like the 9 in this example but that 
was something of a nuisance. FB2 will 
still sort in this way by default but you can 
key N when Index is on the status line and 
make it use the more sensible method of 
putting 9 before 10. The status line then 
looks for this form — N3 aBcDEf — or either 
of the other forms, preceded by N. 
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If you have a program worthy of consideration, send it to ‘The Progs’, 
Sinclair QL World, Greencoat House, Francis Street, London SW1P 1DG 
We pay for everything published at the usual page rates. 


REVERSE POLISH 


CALCULATOR 


by Peter Laurisden 


PN__CALCULATOR_BAS 

is a program which emulates a 

Reverse Polish Notation Sci- 

entific Calculator, RPN is a 
system of representing mathematical 
equations. Fewer keystrokes are required 
to do complex calculations with a RPN 
system than with the regular system. In 
the RPN system there are no parentheses 
and no = (equals) keys. Only two num- 
bers are worked with at a time. 

An abreviation of the  functions/ 
commands available is displayed at the top 
of the screen, The left-hand part of the 
screen is used by the command-line, the 
registers and the error messages. The 
right-hand side is used by the memory, the 
converter and the statistical function. The 
bottom of the screen is used for interactive 
purposes and for displaying HELP messa- 
ges. 


The following are the Help texts avail- 
able from the program: 


If two numbers are entered and “+” is 
pressed Z2 and ZI will be added. 

If a new number is entered and “+” is 
pressed, Z2 and Z1 will be added. 

If “+” is pressed again, the result in Z3 
and Z1 will be added. 

After a conversion the calculator will 
work on Z2 and Z1. 

* + /— are used to multiply, add, divide 
and subtract Z! and Z2 (or Z3). 

* + Raises the number in Z2 (or Z3) 
to the power of the value in Z1. 

“INV” : Calculates the inverse value (1/ 
x) of the number in Z1. 1/Z1}>Z1. 

“NEG” : Negate. Multiply the number 
in Z1 with —1. Z13»Z1*(—1). 

“RO” : Round off the value in Z1 toa 


chosen number of _ digits, e.g. 
2.345"RO” 2 <ENTER> 32.35. 

“CLR” : Clears all Z-registers of their 
content. Warning: Values not stored in 
Memories are lost. 

“SIN” : Compute the sine of Z1 which is 
taken to be in degrees. 

“ASIN” : Compute the arcsine of Z1 in 
degrees. 

“COS” : Compute the cosine of Z1 
which is taken s degrees, 

“ACOS” : Compute the arccosine of Z1 
in degrees. 

“TAN™ : Compute the tangent of ZI 
which is taken to be in degrees. 

“ATAN” : Compute the arctangent of 
Z1. Result in degrees. 

“SEC” : Compute the secant of Z1 
which is taken to be in degrees. 

“ASEC” : Compute the arcsecant of 
Z1. Result in degrees. 

“COT” : Compute the cotangent of Z1 
which is taken to be in degrees. 

“ACOT” : Compute the arccotangent 
of Z1. Result in degrees, 

“CSC” : Compute the cosecant of Z1 
which is taken to be in degrees. 

“ACSC” : Compute the arccosecant of 
Z1. Result in degrees. 

“PI” : Put the value of 7 in Zl. = 
3.141593. 

“LN” : Complete the Natural Logar- 
ithm of Z1. Base e=2,7182818. 

“E” : Compute the exponential of Z1. 
te x). 

“LOG” : Compute the logarithm of Z1. 

“%”* : Multiply Z1 with 0.01. 

“N!" ; Compute the factorial of Z1. e.g. 
4! = 4*3"2*1 = 24. 

“STAT™ : Sub-program. Compute the 
statistical data of a set to observations. 


You will have to write down the results, as 
they are lost when you return to the 
calculator. 

“HYP” ; Compute the value for the 
hypotenuse of a triangle, given two sides. 

“SIDE” : Compute the value for a side 
of a triangle given the hypotenuse and 
other side. Z\(side1), 
Z2(hyp)Z1(side2), Z2(sidel), Z3(hyp).- 

“DEG” : Change from radians to 
degrees. Z1(rad)}>Z1(deg). 

“RAD” : Change from degrees to 
radians. 

“POLR” : Compute polar co-ordinates 
given rectangular X=Z2 Y=Z1 R=Z2 
O=Z1. 

“RECT” : Compute rectangular coor- 
dinates given polar R=Z2 @=Z1 X =Z2 
Y=ZI. 

“MET” : Compute metric conversions. 

“HSIN” ; Compute the hyperbolic sine 
of ZI. 


“HCOS" : Compute the hyperbolic 
cosine of Z1. 

“HTAN” : Compute the hyperbolic 
tangent of Z1. 

“HSEC” : Compute the hyperbolic 
secant of Zl. 

“HCSC” : Compute the hyperbolic 
cosecant of Z1. 

“HCOT” : Compute the hyperbolic 


cotangent of Z1. 

“#SIN” : Inverse hyperbolic sine of Z1. 

“#COS” : Inverse hyperbolic cosine of 
Zl; 

“#TAN" : Inverse hyperbolic tangent 
of Z1. 

“#SEC” : Inverse hyperbolic secant of 
Bilis 

“#CSC” : Inverse hyperbolic cosecant 
of Z1. Result in degrees. 

“#COT” : Inverse hyperbolic contan- 
gent of Z1. Result is given in degrees. 

“SZ” : Switch Z1 and Z1 registers. 
(Z\>Z2>Z1). 

“RZ” : Rotate the Z registers. Z1 is put 
in ZZ, 22 in 23 ete. 
(Z1>Z2>Z3>ZAYZ1). 

“QUAD” : Compute solution to quad- 
ratic equation ax 2+ bx+c.a=Z3b= 
Z2 c=Z1. Results in Z1 and Z2. 

“SB” ; Escape to SuperBasic for a time. 
You return to the program with CON- 
TINUE. Z and M_ registers are 
unchanged. In SB you may calculate, e.g. 
“PRINT 34+45". 

“STO” : Store Z1 in Memory (1-9). You 
are asked which memory. You may add a 
note against the number to help you 
remember what is saved. 

“SUM” : Add Z1 to Memory (1-9). You 
are asked on which Memory you want to 
work. 

“RCL” : Recall the value from the 
Memory location you chose and put it in 
Z1 for use in subsequent calculation. 

“CMs” : Clear chosen Memory or all 
Memories. You are asked which. 

*HELP” Gives HELP on the 
Command/Function you type after 
“HELP”. If no Command/Function is 
entered, “HELP” will give help on calcu- 
lations in general, 
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REVERSE POLISH NOTATION CALCULATOR 


« + / . 
ATAN SEC  ASEC COT ACOT 
HYP SIDE 


INV 


Scientific 
Reverse Polish Notation Calculator 
Peter Lauridsen, 1988 


100 REMark 
110 REMark 
120 REMark 
130 

140 tnitialize 
150 window _ 5 
160 

170 REPeat loop 
180 CLS#6 

190 AT#4,1,17 
200 AT#4,1,2 
210 AT#4,2,.5 
320 PRINT#4, * 
230 LF es="* Go TO 180 

240 IF ec$=='Quit’ quit 

250 number_or_command 

260 END REFeat loop 

27a. i 

280 DEFine PROCedure number_or_command 
290 IF NOT c$(1) INSTR’'.0123456789' 
300 command RETurn 

310 END IF 

320 x=c8h number_count 
330 END DEFine 

340 : 

350 DFEFine PROCedure command 
360 IF NOT c$ INSTR'+*-/' 
370 find_command_procedure 

380 ELSE 

390 command count 

400 END IF 

410 END DEFine 

420 ; 

430 DEFine PROCedure number_count 

440 IF n¢id=2 

450 uc2d=2 

460 ELSE 

A470 n¢1ld=2 

480 END IF 

490 END DEFine 

500 ~ 

510 DEFine PROCedure command_count 

520 IF n@i)d=1 

530 n(2d=1 

540 ELSE 

550 nd idpel 

560 END (F 

570 find_command_procedure «+ 

580 END DEFine 

590 ; 

600 DEFine PROCedure find_command_procedure 
610 IF i : multiply RETurn 

620 IF > addition RETurn 

630 1lF : divide RETurn 

640 IF subtract RETurn 

650 IF powers RETurn 

660 CF inverse RETurn 

670 IF negative RETurn 

680 IF round off : RETurn 

690 IF clr_registers RETurn 
Tou IF ec$=='SIN' : sine RETurn 

710 IF =='ASIN': arc_sine RETurn 

720 IF "COS * cosine RETurn 

730 IF "ACOS': are_cosine RETurn 

740 IF c$=<'TAN' : tangent RETurn 

750 IF e$+='aATAN': arc_tangent RETurn 

760 {F ‘SEC’ : secant RETurn 

770 LF ‘ASEC': arc_secant RETurn 

780 IF ‘CcoT' cotangent RETurn 

790 IF *ACOT': arc_cotangent RETurn 
800 IF *CSEC’: cosecant RETurn 

810 EF ¢: arc_cosecant RETurn 

820 IF > phi + RETurn 

&30 IF natural_logarithm: RETurn 
S40 IF exponential _of_x RETurn 
850 IF logarithm RETurn 

860 IF percent RETurn 

870 LF factorial RETurn 

880 IF Statistics RETurn 


window_3 window 4 


menu 


window_7 
window_6 


"7 c8 


PRINT#A,’ 
INPUT#4, ‘Command /value: 


shift registers 
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NEG 
CSEC ACSC 
DEG RAD POLR RECT MET 
#COS #TAN #SEC #CSC #COT = SZ RZ 


RO 
PI 
HSIN  HCOS HTAN  HSEC 
QUAD 


1610 
1620 
1630 
1640 
1650 
1660 
1670 


CLR SIN 
LN E 


ASIN COS  ACOS 
LOG Yo N! 

HSCS HCOT 
RCL CMs 


TAN 
STAT 
#SIN 


SB STO SUM HELP 


c$=='HYP‘ hypotenuse RETurn 
c$-='SIDE': side_of_triangle 
ce$=='DEG" conv_to_degrees * RETurn 
c$=="RAD' conv_to_radians RETurn 
ce$=="POLR': rect_to_polar_conv ; RETurn 
e$=="RECT': polar_to_rect_conv RETurn 
ec$=="MET’ : conv_to_metric RETurn 
c$-='HSIN': hyperbolic_sine RETurn 
c$=='HCOS': hyperbolic_cosine RETurn 
c$=='HTAN': hyperbolic_tangent RETurn 
e$-=='HSEC': hyperbolic_secant RETurn 
e$=='HCSC': hyperbolic_cosecant: RETurn 
e$-+'HCOT': hyperbolic_cotangent:RETurn 
="#SIN': inv_hyperbolic_sine RETurn 
="#COS': inv_hyperbolic_cosine: RETurn 
#TAN': inv_hyperbolic_tangent:RETurn 
#SEC’': inv_hyperbolic_secant:RETurn 
#CScC':inv_hyperbolic_cosecant: RETurn 
*#coT': inv_hyperbolic_cotangent:RETurn 
: switch_to_zl RETurn 
: rotate_z RETurn 
QUAD': quadratic_equation 
e$=='SB' monitor_mode RETurn 
c$==‘STO' store_in_memory RETurn 
eg=+'SUM' add_to_memory RETurn 
c$=="RCL" recall_memory RETurn 
c$==‘CMs' clear_memory :; RETurn 
e$=="HELP': help RETurn 
error_message 
END DEFine 


RETurn 


RETurn 


DEFine PROCedure multiply 
IF n¢€1)=n(2) AND n(1)=1 
X=Z1"Z3 1: n(2}=2 
ELSE 
X"Z1*z2 
END IF 
shift_registers 
END DEFine 


DEFine PROCedure addition 
IF n¢i)=1 AND nfl)en(2) 
M=Z1+z3 n€2)=22 
ELSE 
X=Z1+zZ2 
END IF 
shift_registers 
END DEFine 


DEFine PROCedure divide 
1F z1=0 error_message 
IF n¢i>=n¢2) AND n(1}=1 

x223,'Z1 ntZz=2 
ELSE 
xX*#Z2/Z1 
END IF 
shift _registers 
END DEFine 


RETurn 


DEFine PROCedure subtract 
IF n¢l>=n¢2> AND n¢1d=1 
MaZS=21. MWS) =2 
ELSE 
&*Z2-2Z1 
END IF 
shift_registers 
END DEFine 
DEFine PROCedure powers 
X=Z2°21 shift_registers 
END DEFine 


DEFine PROCedure inverse 
iF z2i=0 error_message 
R=1/Z1 put_in_zl 
END DEFine 


RETurn 


DEFine PROCedure negative 
%=-Z1 ¢ pPUE In: z1 


37 


lbRO END DEFine 

1690 

1790 DEFine PROCedure round_off 

1710 AT #6,1,20 

1720. FRINT#6, "How many decimals (0-6): 
1730 aS=INKEYS(-1)? 

1740 TF NOT a INSTR'0123456' 


1750 error _ message Go TO 1710 

170} END IF 

1770 places-ag$ 

1780 S=OINTCZ1*€10 places)+.5)?)/10° places 


1790 CLS#6 put_in_z1 

1800 END DEFine 

1610 ; 

1820 DEFine PROCedure clr_registers 
1830 Z1=0 : 22=0 : Z23=0 : Z4=0 


1840 n¢é1d=1 n¢2 >=} print_registers 
1850 FND DEFine 

1860 : 

1870 DEFine PROCedure sine 

1880 IF z1.60000 OR zZl« -60000 

1890 error_message RETurn 

1900 END LF 


1910 x=S1N€z1*1, 74533E-2) 
1920 put, in_2i 
1930 END DEFine 


1940; 

1950 DEFine PROCedure arc_sine 

1960 [LF Ziel OR zZiec-1 error_message RETurn 
1970 x=ASINC2Z1)*57.29578 : put_in_zl 

1980 END DEFine 

1990 ; 

2000 DEFine PROCedure cosine 

2010 IF 21°347745 OR Z1‘-347745 

2020 error_message : RETurn 

2030 END IF 

2040 K=COS(zZ1*1,74533E-2) put_in_zl 

2050 END DEFine 

2060 : 

2070 DEFine PROCedure arc_cosine 

2080 IF 21-1 OR zl:°1 error_message RETurn 


2090 X=ACOS(21)=57.29578 
2100 END DEFine 
SLL 5 
2120 DEFine PROCedure tangent 
2140 IF 21°30000 OR z1< -30000 
2140 error_message RETurn 
2150 END IF 
2160 x=TAN(21*1, 74533E-2) 
2170 END DEFine 
21f0 : 
2190 DEFine PROCedure arc_tangent 
2200 x: ATANCZ1)*57. 29578 put_in_zl 
2210 END DEFine 

20: 


put_in_zl 
put_in_zl 


O DEFine PROGedure secant 
2240 IF 21:347745 OR 21<-3,437745E6 


‘3 
- 
oo 


2250 error_message RETurn 

2260 END LF 

esc eyo t=COS(Z1%1. 745333E-2) 

2280 1F t+0 error_message :; RETurn 


2290 &=1/COS(z1*1.74533E-2) 
2300 END DEFine 

2310 4% 

2320 DEFine PROCedure are_secant 
2330 part1=ATAN¢(SQRTCZ1*Z1-1)) 
2340 p=(Z1-1)*1.5708 +: part2 = sgn¢p? 
2350 X=(partl+part2)*57,29578 put_in_zl 
2360 END DEFine 

237D) % 

2980 DEFine PROCedure cotangent 

2390 IF 21.1.718872E6 OR z1 -1.718872E6 
2400 error_message RETurn 

2410 END IF 

2420 x-COTCZ12 1. 74 5339E-2) 
3430 END DEFine 

2440 : 

2450 DEFine PROCedure arc_cotangent 

2460 xX=ACOT(Z21)*57, 29578 put_in_z21 

2470 END DEFine 

2480 ° 

2490 DEFine PROCedure cosecant 

2500 t=SIN(€Z1*1.745335E-2) 

2510 IF t=O *%=1E616 put_in_21 RETurn 
3520 k= L/SINCEL* 1, 7459SE=2) put_in_zl 
2530 END DEFine 

S540) ¢ 

2550 DEFine PROCedure arc _cosecant 

2560 IF 21 -1 AND Z1 1 error_message 
2570 IF zi=1 : x+=90 put_in_Zl RETurn 


put_in_zl 


put_in_zl 


RETurn 


2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880. 
2890 
2900 
2910° 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 


part1=ATAN(1/SQRT(z1*z1-1)) 
part2=sgn(z1)-1 part2=part2*1.5708 
x=(parti+part2)*57.29578 ; put_in_Zl 
END DEFine : 


DEFine PROCedure phi 
x=3.141593 number_count 
END DEFine 


shift_registers 


DEFine PROCedure natural_logarithm 
IF x<=0 error_message +; RETurn 
X=LN(Z1) put_in_zl 
END DEFine 


DEFine PROCedure exponential_of_x 
IF z1>500 OR z1<-500 


error_message RETurn 
END IF 
X=EXP(Z1) put_in_z1 


END DEFine 


DEFine PROCedure logarithm 


fF z1<=0 error_message RETurn 
x=LOG1O(z1) put_in_zl 
END DEFine 


DEFine PROCedure percent 
M=Z1*1E-2 : put_in_zZl 
END DEFine . 

DEFine PROCedure factorial 
IF z12#0 : 21=1 GO TO 2940 
XFZ1 
FOR y=1 TO z1-1 

K=xX*(Z1-y) 

END FOR yv 
put_in_zl 
END DEFine 


DEFine PROCedure statistics 
CLS#3 : CLS#5 


PRINT#3, ° In Statisti 


cal Mode'\\\ 


3000 


PRINT#3, ° Enter values separately an 


d enter "Z" when done‘ 


3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 


sum=0 : ms=O : d=1 
INPUT#5, aS 
FOR p=1 TO LEN(ads) 
IF NOT aS(p) INSTR’ 2Z1234567890' 
GO TO 3020 
END IF 
END FOR Pp 
IF a$='' THEN GO TO 3020 
IF a$(1)=='z’ THEN stat_results 
k(d)=a$ sum=sum+k(d) 
ms=ms+(C€K(d))*°2) 2: d=de1 
END DEFine 


RETurn 


GO TO 3020 


DEFine PROCedure stat _results 
CLS#3 : CLS#5 PRINT#3, ‘Scores: 
IF @=1 OR d=2: menu: error_message; RETurn 
FOR h=1 TO d-1 
PRINT#3, kK¢h), 


END FOR h 
AT#5,1,0 
PRINT #5, ‘Sum of scores: *, sum 
PRINT #5, ‘Number of scores: ei aL 
PRINT #5, ‘Mean value: ', sum/(d- 1) 
PRINT #5, ‘Sum mean squared: i MS 
PRINT #5, ‘Variance: *, ms/Cd-1) 


y»-€Csum/(d-1))°2> 


3260 


PRINT #5, ‘Standard déviation: ‘, SQRT¢(ns- 


(Csum*2)/(d-1))9/€d-29)9 


3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 


PRINT #545 

PRINT #5, ‘Press a KEY to continue’ 
ag$-INKEY$¢-1) : CLS#3 : CLS#5 

menu . 

print_memories 

END DEFine 


DEFine PROCedure hypotenuse 
iF zis OR 22:0 error_message : RETurn 
x=SQRT(21°2+22°2) shift_registers 
END DEFine 


DEFine PROCedure side_of_triangle 
IF z1-0 OR 22:0 error_message RETurn 
x=SQRTCABS(Z1°2-22°2)) shift_registers 
END DEFine 
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3440 DEFine PROCedure conv_to_degrees 
3450 K=Z14*57.29578 put_in_zl 

3460 END DEFine 

3470 : 

3480 DEFine PROCedure conv_to_radians 
3490 X21. 745329E-2*«21 put_in_zl 

3500 END DEFine 

3510 ; 

4520 DEFine PROCedure rect_to_polar_conv 
3530 b=(zZl=Zz1+z2%z2) 

3540 IF b.=0 error_message RETurn 
3550 22=SQRT(Z21*z21+z22*Z2) p=21/z2 
3560 Z1=(ATAN(p/SQRT(-p*p+1)194*57. 29578 
3570 print_registers 

3580 END DEFine 

3590 : 

3600 DEFine PROCedure polar _to_rect_conv 


-60000 
3620 error_message RETurn 
3630 END IF 


3640 p=Z2"(SIN(Z14*1.745329E-2)) 
3650 Z2=Z2*(COS(z1=1. 745329E-2)3 
3660 Z1l=b print, registers 

3670 END DEFine 

2680! -5 

3690 DEFine PROCedure conv_to_metric 
3700 CLS#5 


3710 PRINT#5S, " CONVERT:°S 

3720 PRINT#5, '‘ 1) feet to meters’ 

STAO PRINT#5, ' 2) inches to centimeters’ 
3740 PRINT#5, © 3) miles to kilometers’ 

3750 PRINT#5, ' 4) gallons to liters' 

“4760 PRINT#5, ' 5) fahrenheit to centigrade’ 
3770 PRINT#5, " 6) pounds to kilograms’ \\, 
3780 PRINT#5, " Use the negative to convert’ 
3790 PRINT#5, ' viee-versa’ 

3800 AT#6,1,20 INPUT#6, ‘Select: ',hS 

43810 IF NOT hS¢LEN¢Ch$)) INSTR '123456' 

4820 AT#6,1,30 PRINT#6,° 2 

3830 Go TO 3700 

3840 END IF 


3850 h=h$ : CLS#5 : CLS#5 
3860 print_memories 


4070 DEFine PROCedure meters _to_feet 
4080 X+Z1 * 3.28084 result 

4090 END DEFine 

4100 : 

4110 DEFine PROCedure inches_to_em 
4120 K=Z1 * 2.54 result 

4130 END DEFine 

4140 : 

4150 DEFine PROCedure cm_to_inches 
4160 X=2Z1 * .3997008 result 

ALTO END DEFine 

4180 ; 

4190 DEFine PROCedure miles_to_km 
4200 X-Z71 * 1.609344 result 

4210 END DEFine 

4220 -: 

4230 DEFine PROCedure km_to_miles 
4240 R7Z1 * (6213711 result 

4250 END DEFine 

4260 7 : 

4270 DEFine PROCedure gallons_to_liters 
4280 x=3.785412 = 7) result 

4290 END DEFine 

4300 °: ” 

4310 DEFine PROCedure liters_to_gallons 
4320 x-.2641721 * Zl result 
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3610 IF 21260000 OR 21:-60000 OR z2>60000 OR Z2< 


RETarn 


3870 I 

3880 IF hel feet to_meters RETurn 
3890 IF he2 inches_to_cm RETurn 

3900 IF h=3 miles to_km RETurn 

3910 IF h=4 gallons_to liters RETurn 
3920 IF h=5 : fahrenheit_to_centigrades 
3930 IF h=6 :; pounds_to_ka RETurn 

3940 IF h=-1 : meters_to_feet RETurn 
3950 IF h=-2 : cm_to_inches RETurn 

3960 IF h=-3 : km_to_miles RETurn 

3970 IF h=-4 : liters _to_gallons RETurn 
3980 IF h=-5 : centigrades_to_fahrenheit: RETurn 
3990 IF h=-6 : Kg_to_pounds :; RETurn 

4000 GO TO 3700 

4010 END DEFine 

4gz0 : 

4030 DEFine PROCedure feet_to_meters 

4040 X=, 3048 * 21 result 

4050 END DEFine 

4060 ; 


& 
i) 
o 


WH OOMNAWME 
ooocoeoceaoga 


PRPERRE BREE 
FEEEOYLLY WOLD 


4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
Se00- 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170. 
5180 
5190 
5200 
5210 


5220 


END DEFine 


DEFine PROCedure fahrenheit to_centigrades 
*x=.5555555 « €z1-321 result 
END DEFine 


DEFine PROCedure centigrades_to_fahrenheit 
K£(1.8 * ZL) + 32 result 
END DEFine 


DEFine PROCedure pounds_to_kqg 
X=,4535924 * ZL result 
END DEFine 


DEFine PROCedure kg_to_pounds 
X22, 204622 x z1 result 
END DEFine 


DEFine PROCedure hyperbolic sine 
IF 21-500 OR 21:0 : error_message 
X= (CEXP(Z1)-EXP(-Z11)/2 put_in_zl 
END DEFine 


RETurn 


DEFine PROCedure hyperbolic. cosine 
IF z1i:500 OR 21:0; error_message; RETurn 
x7 (EXP(z1)+EXP(-21))/2 put_in_zZ1 
END DEFine 


DEFine PROCedure hyperbolic _tangent 
IF 21°500 OR 21-0: error_message: RETurn 
X=CEXP(21)-EXP(-2Z1)9/¢EXP(Z1)+EXPC€-z1?)3 
put_in_21 
END DEFine 


DEFine PROCedure hyperbol ic_secant 
X=2/CEXP(Z1)-EXP(-z1)) put_in_zl 
END DEFine 


DEFine PROCedure hyperbolic_cosecant 
X=2/¢(EXP(Z1)-EXP(-21)>) put_in_z21 
END DEFine 


DEFine PROCedure hyperbolic cotangent 
xX=EXP( -z1)/¢CEXP(z21)-EXPt ~+z1)>*2¢1 
put_in_zl 
END DEFine 


DEFine PROCedure inv_hyperbolic_sine 
X=LN(Z1+SQRT(Z1*Z1+1)) put_in 21 
END DEFine 


DEFine PROCedure inv_hyperbolic_cosine 
IF z1¢=1 error_message RETurn 
X=LN(Z1+SQRT(21*2Z1-13)> put_in_z1 
END DEFine 


DEFine PROCedure inv_hvperbolic_tangent 
IF Z1>=1 OR 21<0 error_message RETurn 
M=LNC(1+213/¢€1-21)9/2 put_in_z1 
END DEFine 


DEFine PROCedure inv_hyperbolic_secant 
IF z1¢=0 error_message RETurn 
X=LNC(SQRT¢(-Z1L*Z14+1)+1)/21) put_in_zl 
END DEFine 


DEFine PROCedure inv_hyperbolic_cosecant 
tF zt<o error message RETurn 
x=LN(€sgn(z1>*SQRT(z1=Z1+1)+19/z1) 
put_in_z1l 
END DEFine 

DEFine PROCedure inv_hyperbolic_cotangent 
t=z1-1 IF t.=0 error_message RETurn 
M=LNO(21+19/¢Z1-1)9"2 Put_in_zl 
END DFFine $ 


DEFine PROCedure switch to_zl 
b=z22: Z2=Z1: z1l=b: n(2r=2: print_registers 
END DEFine 


DEFine PROCedure rotate_z 
b-z4: z4=23: 243=22: 22=21: Z1=b: nt1i=2 
print_registers 
END DEFine 


DEFine PROCedure quadratic equation 


IF z23=0 error_message RETurn 
t=Z2*Z22-4*235=71 
IF t.0O : error_message RETurn 


39 


5230 
5240 
5250 
5260 
5270 
5280 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
5370 
5380 
5390 
5400 
5410 
5420 
5430 
544.0 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5a90: 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
S670 
5680 
5690 
5700 
S710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
56890 
5900 
5910 
§920 
5930 
5940 
§950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 


b=(€-Z2+¢(SQRT* 22*Z2-4*23*21)))/02*73) 
zi=(-z2- (SQRT(22*22-4*23*Z1)))/€2*23) 
z2-b : print registers 

FND DEFine 


DEFine PROCedure monitor_mode 
CLS#1 =: PRINT#1, ‘Entering monitor mode; '; 
PRINT#1,° type CONTINUE and press ENTER '; 
PRINT#1, ‘to continue...‘ 
CLS#0 ; STOP : CLS#0 
window_7 window_3 window _4 
window 5 window_6 : menu 
print _registers ; GO TO 200 
END DEFine 


DEFine PROCedure store_in_memory 
AT#6,0,15 
PRINT#6, ‘Which memory location? (1-9): ‘"; 
INPUT#6,mem 
AT#6,1,15 PRINT#6, 'Remark on memory No.'; 
PRINT#6, mem; ~ : a 
INPUT#6, notes (mem) 
memory(mem?=Z1 CLS#6 : print_memories 
END DEFine 


DEFine PROCedure add_to_memory 
AT#6,1,20: PRINT#6,'Which memory? (1-9): ‘; 
INPUT#6,mem 
memory(mem)=memory(mem)+z1 : CLS#6 
print_memories 
END DEFine 


DEFine PROCedure recall_memory 
AT#6,1,20: PRINT#6, ‘Which memory? (1-9): °; 
INPUT#6, mem X=memory(mem):; number_count 
CLS#6 : shift_registers 
END DEFine 


DEFine PROCGedure clear_memory 

AT#6,1,10 

PRINT#6, Which memory (1-9;0 clears all>:'"; 

mem=INKEY$¢-1) 

IF mem=0 
FOR X=1 TO 9 : memory(x)=0 
END FOR xX . 
CLS#5 : CLS#6 

ELSE 7 
memory (mem) =0 
END IF 

CLS#6 : print_memories 

END DEFine- 


note$¢(xd="" 
RETurn 


note$ (mem) =" * 


DEFine PROCedure print_memories 

FOR x=1 TO 9 
AT#5,X%,5 
PRINT#5, * 
END FOR x 

FOR xX=1 TO 9 
AT#5,X%,2 PRINT#5S,'M’;xX;‘: *;memory(x) 
AT#5,X,18 : PRINT#5, note$ (x) 
END FOR x 

END DEFine 


DEFine PROCedure help 


CLS#6 

AT#6,1,20:PRINT#6, ‘HELP on what function?';: 
INPUT#6,c$ 

IF c$- *? 


write text$(O> write text$ c1> 


write text$(2) write text$¢3) RETurn 
END IF 
IF i= °*** i write text$¢7) RETurn 
IF cB- '+' > write text$c7) RETurn 
IF ch= '"/' 1 write text$¢7) RETurn 
IF c$= '-' : write textS¢7) RETurn 
IF c$=- '*' : write text$(s) RETurn 
IF c$=='INV' > write text$¢9) RETurn 
IF c#=="NEG' : write text$¢10) RETurn 
IF c$-+="RO* : write text$(11) RETurn 
IF e$=='CLR' : write text$(12) RETurn 
IF e$=='SIN' +: write text$C13) RETurn 
IF c$-='ASIN' : write text$c14) RETurn 
IF c$=="COS' : write textg$c15> RETurn 
iF e$=="ACOS' : write text$c16>) RETurn 
[IF c$+='TAN’ : write text$t17) RETurn 
IF ec$=='ATAN' +: write textS¢1e8) RETurn 
IF c$=='SEC' + write text$c19) RETurn 
TF e$=='ASEC' : write text$¢20) RETurn 
IF e$=='CoT' : write text$¢21) RETurn 
IF ch=='ACOT’ : write text$(22) RETurn 


6130 IF cB=="CSEC' : write text$1(23) RETurn 
6140 IF e$=="ACSC’ : write text$(24) RETurn 
6150 IF c$<='PI’ : write text$(25) RETurn 
6160 IF c$=="LN’ : write text$(26) : RETurn 
6170 IF c$=<-'E : write text$C27) : RETurn 
6180 IF c$=>'LOG’ : write text$(28) + RETurn 
6190 IF c$= ‘'%' : write text$(29) RETurn 
6200 IF c$=='Nt' : write text$(30) RETurn 
6210 IF c#$=='STAT' : write texcg$csl) RETurn 
6220 IF e$=='HYP' : write text$¢s32) RETurn 
6230 IF c$=='SIDE' : write text$(33) RETurn 
6240 IF c$=="DEG* : write text$(34) RETurn 
6250 IF e$-="RAD' >: write text$(35) RETurn 
6260 IF c$=-'POLR' ; write text$ (36) RETurn 
6270 IF c$=='RECT' + write text$(37) RETurn 
6280 IF c$=='MET' : write text$(38) RETurn 
6290 IF c$=='HSIN' : write text$(39) RETurn 
6300 IF c$=+'HCOS' : write text$(40> RETurn 
6310 IF c$=="HTAN' : write text#(41) RETurn 
6320 IF c#=="HSEC’ : write text$(42) RETurn 
6330 IF c$=='’HCSC’ : write text$¢43> RETurn 
6340 IF c$=="HCOT’ : write text$(44> RETurn 
6350 IF c$=='#SIN" : write text$(45) RETurn 
6360 IF c$=='#COS' : write text#(46) RETurn 
6370 IF c$=='#TAN' : write text$(47) RETurn 
6380 IF c$=='#SEC‘ : write text$(4a) RETurn 
6390 IF ec$=='#CSc' : write text$(49> RETurn 
6400 IF c$=='#COT' : write tCext$i(50) RETurn 
6410 IF c$=='S2" : write text$(51) RETurn 
6420 IF c$=='RZ' : write text$(52) RETurn 
6430 IF c$=='QUAD' : write text$(53) RETurn 
6440 IF c$=='SB' : write text$¢54) RETurn 
6450 IF c$=='STO' : write text$(55) RETurn 
6460 IF c$=='SUM' : write text$(56) RETurn 
6470 IF c$=='RCL' : write text$(57) RETurn 
6480 IF c$=='CMS' : write text$(58) RETurn 
6490 IF c$++'HELP' : write text#(59) RETurn 


6500 CLS#6 error_message 
6510 END DEFine 

6520 ; 

6530 DEFine PROCedure put_in_ zl 
6540 Z1=x n¢1)}=2 +; n¢2r=2 
6550 END DEFine 

6560 : 

6570 DEFine PROCedure shift_registers 
6580 ZA=Z9 5 ZBSZ2 3: Z2=Z1 «= Z21=x 
6590 print_registers 

6600 END DEFine 

6610 : 

6620 DEFine PROCedure print_registers 
6630 AT#4,2,0 

6640 PRINT#4,' 


print_registers 


6650 AT#4.93,.13: PRINT#4,"Z1: “7Z1;" 
6660 AT#4,4,13: PRINT#4,'Z2: ‘;22;° 
6670 AT#4,5,193: PRINT#4,°Z3: ';23;° 
6680 AT#4,.6,13: PRINT#4,‘'Z4: ';Z4;°* 
6690 END DEFine 

6700 : 


6710 DEFine PROCedure result 
6720 CLS#4 put_in_z1 
6730 END DEFine 

6740 : 
6750 DEFine PROCedure menu 
6760 CLS#3 
6770 PRINT#3,‘ 

NOTATION CALCULATOR‘ 


REVERSE POLISH 


6780 PRINT#3, * * + Fg = INV NE 
G RO CLR SIN ASIN COS AGOS TAN ' 

6790 PRINT #3,° ATAN SEC ASEC COT ACOT CSEC A 
CSC PI LN E LOG *% NY STAT’ 

6800 PRINT #3,' HYP SIDE DEG RAD POLR RECT M 
ET HSIN HCOS HTAN HSEC HCSC HCOT #SIN' 

6810 PRINT#3, ' #COS #TAN #SEC #CSC #COT SZ R 
Zz QUAD SB STO SUM RCL CMS HELP’ 

6820 PRINT#3,° Use Qu 
IT to end’ 

6830 END DEFine 

6840 : 


6850 DEFine PROCedure initialize 

6860 MODE 4: CLS#0 

6870 DIM a$(1i4),c$(14),k(25) ,memory(9) ,note$(9, 14) 
6880 DIM h$¢109,text$(60, 200) ,n¢2), tekst$C200) 


6830 Z1isO : 22=O :; 23=0 : 24=O : ec$=""s neiy=1 
6900 FOR x+1 TO 6 
6910 memory (xX) =0 note$tx, 14).="" 


6930 END FOR x 

6940 help text 

6950 END DEFine 

6960 : 

6970 DEFine PROCedure quit 
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t 


* 
: 


CLOSE#6 
CLOSE#7 


CLOSE#5 
CLS#7 
NEW 


6980 
63990 
7000 
7010 
7020 
7030 
7o40 
7050 
7060 
7o7o0 
7089 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
T7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 3; 
7400 DEFine PROCedure help_text 
7410 text$(O)="' The Program Emulates a Reverse P 
olish Notation Scientific Calculator. Z1-Z4 are 
registers. M1-M9 are memories.’ 
7420 text$(1)}="' No parenthesis and no “=" keys a 
re used, Only two numbers are worked with at a 
time. If two numbers are entered and “+" is press 
ed Z2 and Z1 will be added.' 
7430 text$(2)=' If a new number is entered and " 
+" 1s pressed, Z2 and Z1 will be added. If "+" is 
pressed again, the result in Z3 and Z1 will be ad 
ded." 
7440 text$(3)=" After a conversion the calculato 
r will work on 22 and Z1.' 
7450 text$¢(7)=" * + / ~ are used to multiply, ad 
d, divide and subtract Z1 and Z2¢or Z3). See help 
on “". ("HELP", <ENTER>,<ENTER>),* 
7460 text$(8)=' "°": Raises the number in Z2 (or 
23) to the power of the value in Z1.' 
7470 text$¢9)=" “INV": Calculates the inverse va 
lue (1/x) of the number in Z1. 1/21 Zi‘ 
7480 text$(10)=" "NEG": Negate. Multiply the num 
ber in Z1 with <1, Zl Z1x¢ 
=1 0h" 
7490 text$(11)=" "Ro": 
to a chosen number of digits. 
5 "RO" 2 <ENTER> 2.35' 
7500 text$(12)=" "CLR" 
of their content. Warning: 
n Memories are lost.' 
7510 text$(13)=+" "SIN" : Compute the sine of 21 
which is taken to be in degrees. ' 
7520 text$(14)=" "ASIN" Compute the arcsine of 
21 in degrees.’ 
7530 text $(15)=" 


1 which is taken s 
7540 text$(16)=" 
of 21 in degrees.’ 
7550 text$(17)=" 
Z1 which is taken to be in 
7560 text$(18)=" “ATAN™ 
of Z1. Result in degrees.‘ 
THTe 414 KtO(tor ' "SEO". < Compute the secant of Z 
1 which is taken to be In degrees.' 
7580 text$(20)>' "“ASEC" ; Compute the arcsecant 
of Z1. Result in degrees. ‘ 
7590 text$(21)=' "COT" 
f 21 which is taken to be 
7600 text$t(22)=" “acoT" 


CLOSE#3 CLOSE#4 
OPEN#7, Scr_512x256a0x0 
cLs#o cCLS#1 CLS#2 
END DEFine 


DEFine FuNction sgn(p) 
RETurn p-Q 
END DEFine 


DEFine PROCedure window_3 
OPEN #3, con_448xX64a32xX16 
INK #3,7 : BORDER #3,2,0 
END DEFine 


PAPER #3,2 
CLS#3 


DEFine PROCedure window_4 
OPEN #4, con_218x112a32x86 
INK #4,0 : BORDER#4,2,0 
END DEFine 


PAPER 
CLS#4 


#4,7 


DEFine PROCedure window_5 
OPEN #5,con_218x112a262x86 
INK #5,0 BORDER #5,2,0 
END DEFine 


PAPER #5,7 
CLS#5 


DEFine PROCedure window_6 
OPEN #6,con_448x36a32x206 
INK #6,7 BORDER #6,2,0 
END DEFine 


PAPER #6,2 
CLS#6 


DEFine PROCedure window_7 
OPEN#7,Scr_512X256a0x0 : 
BLOCK#7 ,448,64,38,20,4,0 
BLOCK#7, 218,112,38,90,4,0 
BLOCK#7,218,112,268,90,4,0 
BLOCK#7 ,448,36,38,210,4,0 
END DEFine 


PAPER #7,4: CLS #7 


CLOSE #7 


DEFine PROCedure error_message 
BEEP 2000,50 
AT#4,2,17 
END DEFine 


PRINT#4, ‘ILLEGAL FUNCTION' 


Round off the value in Z1 
Eg. 2.34 


Clears all Z-registers 
Values not stored i 


“cos” Compute the cosine of Z 


degrees.’ 
"acos* Compute the areccosine 
“TAN” Compute the tangent of 
degrees. ' 


Compute the arctangent 


Compute the cotangent o 
in degrees.' 
Compute the arccotange 
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ht of #1. Result in degrees." 

7610 Lext$i23»-" “csc Compute the cosecant of 
Z1 which is taken to be in degrees.' 

7620 text$(24)=' "acsc" Compute the arccosecan 
t of 21. Result in degrees.' 

7630 text$(25)=' "PI" Put the value or 

=3.141593° 

7640 text$(26)=" "LN" Compute the Natural 
rithm of Z1. Base e=2.7182818' 

7650 text$(27)=" "E" Compute the exponential o 
f Zi. {6"Ri-* 

7660 text$(28)-=" 
E i2Le 
7670 


if 21 


Loga 


“LOG” Compute the logarithm o 


"og" Multiply Z1 with 0.01." 


Compute the faculty of Z 


text$(29)=' 
7680 text$(30)=" "NI" 
1, Eg. 4! = 443x2"1 = 24° 
7690 text$(31)=' “STAT” Subprogt au. 
® Statistical data of a set to. observa- itdons. ¥ 
ou will have to write down the results, as they ar 
e lost when you return to the calculator.’ 
7700 text$(32)=" "HYP" : Compute the value for t 
he hypoteneuse of a triangle, given two sides.' 
7710 text$(33)=" "SIDE": Compute the value for a 
side of a triangle given the hypotenuse and oth 
er side. 21¢sidel),Z2thyp) 2Z1(side2),Z2(side1),Z 
3¢(hyp).' 
7720 text$(34)=' 
degrees. Z1iirad> 
7730 text$(35)=' 
radians.‘ 
7740 text$(36)=" "POLR" Compute polar coordina 
tes given rectangular X=Z2 Y=Z1 R-Z2 ¢=21.' 
7750 text$(37)=' “RECT” Compute rectangular co 
ordinates given polar R=Z2 ¢€=Z1 X=Z2 Y=Z1.' 
7760 text$(38)=" "MET" Compute metric conversi 
ons.' 
7770 text$(39)=' 
Sine of Z1.‘ 
7780 = text $(40)=" 
cosine of 21.' 
7790 text$(41)=' 
tangent of Z1.' 
7800 text$(42)=' 
secant of Z1.* 
7810 text$(43>=' 
cosecant of Z1.' 
7820 text$(44)=' 
cotangent of Z1.’ 
7830 text$(45)=' 
e of ZI,’ 
7B40 text$(46)=" 
ine of Z1.* 
7850 text$(47)=' 
gent of Z1.' 
7860 text$(48)=' 
ant of Zi." 
7870 text$(49)="' “#C8c" Inverse 
ecant of Z1. Result in degrees’ 
7880 text$(50)=" “#COT" Inverse hyperbolic 
angent of Zl. Result is given in degrees.' 
7890 text$(51)=" "Sz" Switch Z1 and 21 registe 
rs.( Z1Z2 Z1 >.' , 
7900 text$(52)3" "RZ" Rotate the Z registers, 
Z1 is put in Z2, 22 in Z3 etc. (Z1Z22 
ZaZe Fly" 
7910 = text$(53)=" "QUAD" : Compute solution to qu 
adratic equation ax”"2 + bx + c. a+Z 
3 bsZ2 c=Z1. Results in 21 and Z2.' 
7920 text$(54)=', "SB" Escape to Super Basic fo 
r awhile. You return to the program with co 
NTINUE. Z and M registers are unchanged. In SB You 
may calcu- late eg. "PRINT 34+45".' 
7930 text$(55)=' "STO" Store Z1 in Memory (1-9 
>}. You are asked which memory You may add a n 
ote against the number to help you remember what i 
S saved.' 
7940 text$(56)=' "SUM" 
You are asked which Memory you want to 


Compute th 


"DEG" 
Z1(deg).‘ 
"RAD" 


Change from radians to 


Change from degrees to 


"HSIN" Compute the hyperbolic 


"HCOS” Compute the hyperbolic 


"HTAN™ Compute the hyperbolic 


Compute the hyperbolic 


"HSEC™ 


"HCSC* Compute the hyperbolic 


"HCOT" Compute the hyperbolic 


"#SIN" Inverse hyperbolic sin 


"#COS" Inverse hyperbolic cos 


“#TAN" Inverse hyperbolic tan 


"#SEC" : Inverse hyperbolic sec 


hyperbolic cos 


cot 


Add Z1 to Memory (1-9). 
work on 


» Recall the value from t 
in 21 f 


7950 text$(57)=" "RCL" 
he Memory location you chose and put it 
or use in subsequent calculation.‘ 
7960 text$(58)=" “CMs” Clear chosen Memory or 
all Memories. You are asked which. ' 
7970 text$(59)=" “HELP” Gives HELP on the Comm 
and/Function you type after "HELP". If no Comma 
nd/Function is entered, “HELP” will give help on 
calculations in general.' 

END DEFine 


DEFine PROCedure write(tekstS$) 

: # : PRINT#6,tekst$ 
AT#6,2.59 | PRINT#6,.' Press a key 
aS=-INKEY$(-1> CLS#6 
END DEFine 
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If you have a program worthy of consideration, send it to ‘The Progs’ 


f 


Sinclair QL World, Greencoat House, Francis Street, London SW1P 1D6G. 


We pay for everything published at the usual page rates, 


lant Life was one of 

the popular programs 

submitted to the OL 

World Artist of the 
Year 1988 competition. 
Although not one of the two 
prizewinners it made a good 
impression on everyone who 
saw it. 

It is short and simple enough 
to type-in without tears and 
will keep your QL occupied 
attractively in its quiet 
moments. 

When the program is run, 


LIFE 


by Colin Bates 


188 
110 
120 
130 
140 
150 
160 
178 
18a 
190 
200 
210 


REMark 
REMark 
REMar k 
REMark 
REMar k 
REMar k 
REMar k 
WINDOW #0, 452,32,30, 212 
WINDOW #1,512,256, 0,2 
WINDOW #2, 452, 202,320,108 
OPEN#3, SCR_512X256Aax@ 
FOR n=@ TO is INK#n#2, 7: 
220 MODE 4: BORDER 30,7,90: 
4,@: BORDER 22,0: BORDER 30 
230. SCALE 196,0,0: k=4: ki=7 
240 SCALE#3, 2546, —-45, -30: k=43 
250 REMark 

260 REMark 

270 REMark 

280 FOR tim=@ TO 7 
290 q=RND#2*F I: qi=RND#*PIs 
Ys: Yy=RND(10): 1=2+RND (20): 
15): SX=0: BY=0 

=@Q@ IF ki=4: ki=S5: GO TO 320 

S1Q@ ki=ki+2: IF ki>Ss: ki=0 

220 led=6+RND(13—-k1) 

230 mi=15+RND(25): df=(led-1)/mirt s=1: 
340 SX=SX+3.6: BY=BY+4.8: led=led-df: 
350 FOR n=q TO qtqi*t STEP 3*t/1 
360 c=COS(n)s: d=SIN(n)e cl=x+c#l: 
(l+t*led): d2=ytd*(1+t*led) 


HHRKEE 
HHKEE ees 
HHEKE 
HHEEE 
HHEEE 


PLANT LLPE..« 


by Colin Bate 


PAPER#N#2,3 
BORDER 29,@: 
k1i=7 


KEKE 


PLANTS **#*% 
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di=y+d*1l: 


tendrils of variegated foliage 
start to build from the bottom 
of the screen. When ‘enough’ 
foliage has developed, the 
plant produces exotic crimson 
blooms with translucent halos. 
Run the program again and a 
different version of the shrub 
appears. It is not fast and is 
ideal watching for people who 
enjoy the company of goldfish. 

Plant Life is probably at its 
best on a wall-sized projection 
screen but an ordinary colour 
monitor will serve. 


HM HEE EE HE HHH EEE EEE HEHEHE EERE 


HEHEHE 
KHER 
HHHKE 
HRKEEE 
HEHE 


KEKE HEE HEH HEE EERE HEHE ERE EEEEEREEE 


BORDER 27,2, 


x= S2+32*tim+RND (10) -RND (10 


=1-2*RND(1): led=S+RND ( 


FOR m=1 TO mi 
IF led<7: 


s=5 


c2=x+c* 


S7Q@ cz=xntc*#e(l—-t):s d3sytde(1l-t): c4=xteo*e(l +t (ledt+t)): 
d4=y+d#(1+t#* (led+t)) 

380 IF n<>qe INK#s,@: FILL#s,1: LINE#s,c3,d3 TO c4,d 

4 TO £4,994 TO f3,g3 TO c3,d3: FILL#s,@: INK#s,k, ki: 

FILL#s,1: CINE#s,f1,g1 TO c1,di TO c2,d2 TO f2,g2 TO f 

1,91 TO f2,g2: FILL#s,@ 

390 filecis f2=c2: gi=dis g2=d2: f3=c3: f4e=c4: gi= 

d3: g4=d4 

400 IF RND>.9: leaf2 

41@ NEXT n 

420 t=-t: g=@: gig=@ 

430 11=1+RND(20+g9)+2: wi=x+COS(n)*#11: yl=ytSIN(n)*11 

440 g=dif(n): qli=.175+RND*#PI: IF RND>.9:s  gqt=.175+RND 

#PI¥3/2 

450 “x2=x1+COS(qtqi*t)*¢(1l1i-1l): yR=y1l+SIN(qtqixt)* (11-1) 

460 IF (x2<SX OR x2>298-SX) OR (y2¢<BY OR y2>195) 

470 g=gt2: IF g=2@ AND gig=@: gO: gig=1: =—t: 60 

TO 430 

480 IF g=2@ AND gig=i:s SX=SX-3.6: BY=BY-4.8: GO TO 4 

28 

490 GO TO 430 

5@Q@ END IF 

51@ “=xi:s y=yi:r 111-1 

520 NEXT m 

Jo@ NEXT tim 

540 REMark 

S50 REMark HREKH LIFES #8 eH 

560 REMark 

570 k=2: ki=2 

580 FOR tim=@ TO 7 

590 radius=1@+RND(23): cx=-10+tradius+RND(200-radius) s 

cy=~10+radius+RND (20@-r adius): Q=RND*#2*PIs qgi=RND#*FI 

: Ll=2+RND¥radius/2: t=1: led=itradius/7: FILL#3,0 

600 INK#3,@: ra*radiustradius/2+i: FOR y=-ra TO ra ST 

EP 1.45 

610 x=(ratra-y#y)*.5: LINE#3,cx-x,cyty TO cxtx,cyty 

620 NEXT ys y cy: x=cx 

630 INK#3,7: FOR n=ra TO ra-ra/6@ STEP -ra/i2@: CIRCL 

E#3,cx,Cy,n 

640 “x=cx:2 = y=cyt ra=ra-2 

65@ FOR m=1 TO 1.7S5#radius 

648 le=@ 

670 FOR n=q TO gqtqi*t STEP 3*t/1 

680 c=COS(n)s d=SIN(n):s cl#xtc*#ls di=ytd#*l: c2=x+c* 

(l+t#led): d2=y+d*(1+t*led) 

690 c3=xtco*#e(l—-t): d3syt+d*(l-t):s c4=xtc# (1 +t#e(ledt+t)): 
d4=y+d* (14+t* (led+t)) 

7OO IF n<eq: INK#S,0: FILL#3,1: LINE#3,c3,d3 TO c4,d 

4 TO £4,94 TO f3,g3 TO c3,d3: FILL#3,0: INK#3,k,k1: 

FILL#3,1: LINE#3,f1,gi1 TO ci,d1 TO c2,d2 TO f2,92 TO f 

i,gi TO f2,g2: FILL#3,@ 

710 fieci: f2=c2: gi=dis g2=d2: f3=c3: f4=c4s gi= 

d3: g4=d4 

720 NEXT n 
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73@ t=-t: g=@: gig=0 

740 11=1+RND* (radius/2-g) +2: .x1l=x+COS(nd*#lis yl=ytSIN 
(n) #11 

7350 g=dif(m): qi=.195+RND#FI*#3/2: IF RND>.9: gqi=.175 
+RND#PI 

760 “x2=x1+COS(q+qletd)*#(11-1): y2=y1i+SIN(qtql#t)#*# (11-1) 
770 rd=( (x2-cx) *# (x 2-cx) + Cy2-cy) #(y2-cy))*.5 

780 IF rd+(1i-l)+ra/2O>ras  xweecx: y=cy: oF 8s ot=@: 
Q=RND*2*#PI: Qi=RND#PIs 1=2+RND*¥radius/2: GO TO 80a 
790 x=xi:s y=yl: 1=1li-~l 

800 NEXT m 

810 dot 

820 NEXT tim: K#=INKEYS(-1i): STOP 

83@ REMark 

840 REMark *#e##e#e% FUNCTIONS & PROCEDURES **x«* 

850 REMark 

860 DEFine FuNction dif (z) 

870 IF z<@: z=z+2*PI: GO TO 870 

BBO IF z>2eFIs z=z-2*PI: GO TO 880 

890 IF zt=PI: RETurn z+Pl¥t 

900 IF ze>FIs RETurn z-PI#t 

910 END DEFine 


DEFine FPROCedure dot 

FILL#3,@: INK#3,7: erd=100: rdi=.25: d=(rd-rdi)/ 
st=0 

FOR n=i TO ra 

sterd/n:r rd=rd-d: IF st>2*PI: NEXT ms GO TO 102 


anl=RND#2*P I 
970 IF ntra/2: NEXT nz: GO TO 1820 
980 FOR m=anil TO 2*PI+ani-st STEP st 
990 px=n*#SIN(m): py=n*COS (m) 
1000 FPOINT#3,cx+px,cytpy 
1010 NEXT me NEXT n 
1020 FOR n=@ TO ra*8:) ratl=ra-ra/1Q@-RND*(ra/S): ang=FI 
/1@+RND#*(PI/2-PI/2@): POINT#3,cxtral*SIN(ang) ,cytraix*xt 
OS (ang) 
1030 INK#3,4: FOR n=@ TO ra®8: ral=ra-ra/1@—-RND*(ra/S 
Ye ang=PI+PL/S+RND*(PI/2-PI/S): POINT#S,cxt+rail*SIN(an 
g) ,cytral*COS (ang) 
10240 END DEFine 


1052 DEFine PROCedure leaf2 

1060 c=COS(n): d=SIN(n): cal=x+tc*#ls dal=y+d*1: le=1 

1070 caS=x+c*¥(1l+t): daS=y+td#(1l+t): ca4=xtc#e (1 —-t* (led— 

to): da4=y+d*(1-t#* (led—t)) 

1080 c=COS(n-PI*t/4): d=SIN(n-FI*#t/4):3 chi=xtc#led#4: 
dbisyt+d*led*#4: cbh2=x+c*#(led#44+3): db2=y+d*(led#4+3) 

1090 cb3=x+c#*#(l+t): dbS=y+d*(1l+t): cb4=x4+c%(1-t#* (led- 

to): db4=y+d*(1—-t* (led—t)) 

1100 FILL#3,1:2 INK#3,@: ARC#S,cal,dail TO cbi,dbi,PI/1i 

4: ARC#3,cai,dal TO cb2,db2,-P1I/1.4: FILL#3,@ 

1110 FILL#3,1: INK#3,k,ki: ARC#S,cal,dai TO cbi,dbi,P 

I/21 ARC#S3,cal,dal TO cbi,dbi,-PI/2: FILL#3,0 

112@ END DEFine 
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TURBOQUILL 


David Cottom investigates a 
low-cost solution to the QL 
user’s favourite complaint — 


Quill speed. 


hen the QL was 
launched, it broke 
new ground in 
both packaging 
and pricing, with its inclusion of 
the Psion suite of word proces- 
sing, spread-sheet, database 
and business graphics in the 
price of £399. Even today when 
there are faster, industry- 
standard PCs and more com- 
prehensive and integrated 
packages on the market, the 
QL still stands out as excellent 
value, with new QLs available 
for around £100 including the 
Psion four principal applica- 
tions. 

Surveys indicate that most 
personal computer users 
spend more than half their time 
at the keyboard word proces- 
sing, so it is probably not 
surprising that the Quill com- 
ponent of the Psion suite has 
received most criticism from 
QL users. The principal com- 
plaint is its poor performance — 
its sheer lack of speed. 

Anyone who has watched 
Quill in action — as opposed to 
just having used it — will have 
some idea as to the reason. 
Quill writes to the screen con- 
stantly and not just the text 
being typed — the word, line 
and page counts, command 
and typeface prompts and the 
optional, boxed command 
area at the top of the screen 
are being updated perma- 
nently. 


Speed 


Experienced users will 
already have gained a signifi- 
cant increase in speed, parti- 
cularly when using a number of 
commands, by removing the 
boxed prompts with the F2 
option, but Quill is still sluggish. 
Try setting up a text string to be 
typed-in automatically by an 
ALTKEY function, such as that 
in Toolkit 11 and you will see 


46 


what | mean. SpeedScreen 
and Lightning offer some 
improvement but the funda- 
mental problem is the internal 
inefficiency of Quill. 

There are two approaches 
for users who can live with that 
poor performance no longer. 
The first is to buy an alterna- 
tive, one of the many editors 
available for the QL, most of 
which have varying degrees of 
word processing capability, or 
the highly-regarded text %”. 

That can be an expensive 
option, with most editors cost- 
ing around £30 and the most 
expensive priced at almost 
double that. Of course, editors 
have other uses for which Quill 
is not suitable, for example to 
input and edit program source 
listings, particularly for lan- 
guages other than Super- 
Basic, and to edit binary prog- 
ram files. 

For the user on a budget, 
who wants to do occasional 
word processing, including 
longer items such as reports, 
using the software with which 
he is familiar but with improved 
performance there is a second, 
cheaper option. 

TurboQuill, for users with 
standard QLs, and _ its 
enhanced derivative, Turbo- 
Quill+, for users with 
expanded memory, work by 
patching the standard Quill 
code with fast compiled Pascal 
routines which speed, by 
replacement, some of the most 
inefficient and frustrating Quill 
processes. In addition, 
TurboQuill+ adds some extra 
features such as a CAPS 
LOCK indicator and an easy- 
to-use Glossary — key define — 
function. 

As a TrumpCard user, | 
ordered the latter version 
which was supplied by PDQL 
for £13. Note that TurboQuill 
and TurboQuill+ are Quill 
version-dependent, so be sure 


to order either version 2.3 or 
2.35 as appropriate. In my 
case, as version 2.3 of 
TurboQuill+ was not in stock, 
PDQL supplied version 2.35 of 
Quill on the same disc. 

TurboQuill+ is supplied on 
disc or Microdrive with the 
instructions saved in a Quill 
document. Installation is a 
question and answer process, 
which is probably best per- 
formed from boot as the Pascal 
run-time library must be loaded 
and linked in before use. 


Multi-tasking 


Boot the TurboQuill+ disc or 
Microdrive and answer the 
questions; device and file- 
name of the Quill to be mod- 
ified, whether or not you want 
full CAPS LOCK functionality — 
the instructions warn that prog- 
rams such as key defines, /ce 
and most multi-tasking sys- 
tems other than TaskMaster 
may have problems if this 
option is chosen — and whether 
the modified Quill is to be run 
under a QRAM environment. 
The specifield Quill, which 
must be the correct version for 
your TurboQuill+, is then mod- 
ified and saved to the device 
and filename entered. 

Full CAPS LOCK function- 
ality means that the normally 
red text cursor will change 
colour to white immediately the 
CAPS LOCK key is pressed. If 
you choose not to implement 
full CAPS LOCK functionality, 
as | was compelled to do as a 
QRAM user, the cursor 
changes colour only after a 
character key has been 
pressed. This delayed change 
detracts little from this useful, 
almost incidental, facility. 

QRAM users should note 
that a version of TurboQuill+ 
created with the QRAM option 
set will work only under QRAM, 
so if you also use TurboQuill+ 
without QRAM present , you 
will need to create a second 
version without this option set. 

Once your Quill has been 
converted, the standard Psion 
config__bas program will not 
work, so TurboQuill+ is sup- 
plied with its own configuration 
program, this time in Pascal. 


This program allows an addi- 
tional option to be set, the 
location of the Glossary file, 
the default being FLP1_, 
although | chose to use RAM 
disc for maximum speed. 

As usual, QRAM users must 
configure TurboQuill+ before 
using Grabber to allocate the 
amount of memory to be used 
by the program. It is important 
to note that TurboQuill+ is 
slightly more than 8K larger 
than standard Quill, so you 
must specify that amount more 
memory to retain the same 
maximum size for a_ fully 
memory-resident document. 

A modification program is 
supplied for Spe/fBound users 
which enables SpellBound to 
be used with a TurboQuill+ 
which has full CAPS LOCK 
functionality set. The number 
and comprehensive nature of 
these various configuration 
options is an indication of the 
thoroughness with which 
TurboQuill+ has been pre- 
pared. 


Faster 


First impressions of Turbo- 
Quill+ are that it is significantly 
faster than standard Quill. 
Most noticeably it is now pos- 
sible to work with the boxed 
command area at the top of the 
screen present, something | 
Still find useful even after using 
Quill for four years, at home 
and at work. The faster prompt 
display is not the only improve- 
ment as use of ALTKEY func- 
tions shows; speed of text 
input to the document is also 
improved significantly. 

To measure the perfor- 
mance improvement, | set up 
and ran several of these func- 
tions in both standard Quill and 
TurboQuill+, with and without 
the boxed prompts present, 
and with and without Lightning 
installed. Each test was run 
three times in a 896KB QL with 
no other tasks running to 
ensure the validity of the tim- 
ings. The results of a typical 
function to format a letter, re- 
setting the margins, removing 
the footer, changing the design 
and typing-in my name, 
address and telephone num- 


Sinclair/QL World March 1990 


t 
k 
E 
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Without Lightning 


With Prompts No Prompts 
13 sec. 
7 sec. 


Quill 
TurboQuill + 


22 sec, 
10 sec. 


With Lightning 
With Prompts No Prompts 
18 sec. 11 sec. 
10 sec. 7 sec. 


Comparative timings for a typical ALTKEY function. 


ber, are summarised in the 
Table. 

The surprising aspect of 
these results is not the 
improvement in speed offered 
by TurboQuill+ — around twice 
as fast as standard Quill on 
average — but the fact that 
once Turboquillt has been 
installed, Lightning provides 
no measurable additional 
increase in speed, at least for 
functions of this length. It is 
possible that a longer bench- 
mark would have produced a 
measurable additional speed- 
ing but few people would use 
ALTKEY functions of that 
length and no typist could input 
keystrokes faster than an 
ALTKEY function. 

In addition to the CAPS 
LOCK indicator, TurboQuill+ 
also provides a Glossary fea- 
ture which allows up to 22 
functions to be defined to per- 
form frequent or repetitive 
actions automatically, such as 
the ALTKEY functions des- 
cribed in the performance 
measurements. 


installed. 


tasks runni 


1 QUILL 
| 


Many users will already 
have access to the ALTKEY 
function which is part of Toolkit 
ll, fitted as standard on many 
disc interfaces, and is also 
provided by various Key 
Define programs. Unlike most 
of these, the TurboQuill+ 
Glossary function uses the 
CTRL key rather than ALT and 
the definitions are case- 


independent. 
Only letters from A to Z may 
have functions defined, 


excluding CTRL/C for obvious 
reasons and CTRL/I, CTRL/J 
and CTRL/O. Users who find 
the resulting 22 functions limit- 
ing may still use ALTKEY func- 
tion as well, offering almost 
unlimited options. The func- 
tion defined by CTRL/S is 
executed automatically on 
start-up, providing a way to 
eliminate some of the 
annoying Quill defaults. 

The most noticeable differ- 
ence between ALTKEY key 
definition and the TurboQuill+ 
Glossary feature is the ease 
with which functions are 


| Ctrt-s| 


H 6Key you wish 
Hf to Define 


defined. Whereas setting up 
ALTKEY definitions can be 
tedious, in the case of Toolkit II 
having to be typed into Super- 
Basic, usually as part of the 
BOOT program, and requiring 
non-character keys to be 
entered as CHA$(key-code), 
the Glossary is easy by com- 
parison. 

It works rather like a tape 
recorder. Press F5 to open the 
Glossary window — see figure 
one — press the letter for which 
you wish to define the function, 
then the space bar to turn on 
recording, and finally ESC to 
close the window. All key 
depressions are now stored in 
the Glossary file. To finish 
recording, press F5 then ESC. 

Key definitions are stored on 
the device specified in the 
TurboQuill+ configuration pro- 
gram. If, like me, you choose 
RAM disc for maximum speed 
you must remember to copy 
the Glossary file to the speci- 
fied RAM disc before using it — 
for example by including it in 
the BOOT file — and to copy it 
back to permament storage 
before switching off if you have 
made changes. 


Locked up 


After several months of fairly 
heavy use TurboQuill+ has 
never once locked up on me or 
done anything unexpected, 


with one exception. HELP 
screens, called up with the F1 
key, are all underlined word by 
word. This is scarcely a great 
inconvenience to experienced 
users because after the first 
two hours you rarely use HELP 
again. | uncovered this ‘fea- 
ture’ only when my wife was 
learning to use Quill. Other 
than this, TurboQuill+ is, in my 
experience, bug-free. 


Slicker 


TurboQuill+ is a remarkable 
program which transforms 
Quill from an almost intolerably 
slow word processor into a 
much slicker application. It 
may not have all the speed and 
functionality of some of its 
competitors on the QL but its 
advantages are that it looks 
and works exactly the same, 
so there is no learning cycle to 
go through, and its low price. 
Some useful extra functionality 
is there for good measure. | 
wonder how | managed with 
the original for so long. 


INFORMATION: 
Program: TurboQuill+. 
Supplier: PDQL, Unit 1, 
Heaton House, Camden 


St., Birmingham B1 3BZ. 
Tel. 021 200 2313. 
Price: £13. 
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Table 1: Comparative Timings for a Typical ALTKEY Function 


MODE: INSERT 


WORDS: 1795 


TYPEFACE: Wormer! 
Figure 1: TurboQUILL+ Glossary Window (at top) 
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PD OL Computer Systems and Software 


UNIT 1, HEATON HOUSE CAMDENSTREET BIRMINGHAM B13BZ 021 200 2313 


PDQuaLity Products 


PDQL Titles Other recommended software 
App iriberver ites DAY ace cennenecanandas vescorend sarinsaca £50 titles 
Archive Database AnalySef.............-:-rceeneieseee £10 TS Ned Gy <n ae £29 
Archive Screen Format Printer........-.-e+seesere £50 SHelGUNG aes = secretes assim vsmnescs tavenwveissconadea £30 
AGHIVE TUEOP SI. ecncons vacscnsienscadsctec ncnds tears Gite £21 Fleastibiicle Cid ses eeecauece ooucereeocs svecs cease euonee canceones' £25 
Cash Trader Upgrade ........-.-.e-sscssecseeneneenseeeieens £85 Flashback New .....c:cscesccsescsecsseesesesesseeeseeeeseneens £40 
CT ANB SOf ionicctsssarcinntiecetneren ued mS oe £25 Page Designer 2 
Special discounts for Quest users SNPS A AG aco. otagniacet coseenalnsancnacnteninipagnancn erate £6 
Batt <a ie er eee £29.50 Image ProCeSSOT .......---sceceseeseseceesenenenneetsseraes £19 
Bis AAllarclitcit PRPerREC EE Ree ee cere £9 TASKASISM iciccca ves chivescincntosad scnesianen seaens ges taator bases £25 
FileBound (your dise/earthidge] ssssceves ecnsssnsexeressvoe £5 BE a oe Coes carmen casa eve een sees onde aoe ddeuasnaawedatad acd £45 
SUCAP Rss: ercrntnnsncdnansieih aioe warnenin zion deertereienens £20 TSUN FA coin osrscindy weepiapai sania Sncreas ADRES £25 
Hardback and Finder ..............0eccccceeeeeecreeeseeeeeees £35 TOUNTEE BG. pcvacccnncccncacneaas i seneuawidecacmaccesstuas tena £15 
HEX Dumnprte Pritt’. cxcxcocrrsnenevennrcenevvess £10 The above three .......csccccccsesecseeseesseetseneneneeses £80 
ror re: ities «peeks drnciren nies eee ax ecerenied args £20 Typeset 24BB......cercccssseesescessceseesneesngesseerees £15 
[SPAN US scars tacteepersenead ee tines ce onsg essoorsius sept ese £20 Whe EqitOl.x.<cccicicuantsiieriioddaeus endian eres & £45 
eden: ce 1a): ne eer £20 The Conqueror — Vanilla 0.2... ccccccccceeeeerseeeeeeeees £89 
MIWIETHBISEO WER waiiseecepenccvreunvoninevves sede dantaaes £39 — GHOSE: «: ssciscis ccieses weareern £139 
Names and Adresse ...cccccccsscsecscecesseesseneeseeeaee £20 TURBO .s.8.2:/cciece enemas cones eee oo £99 
With Archdev RTM extension ............cecceeeee £36 Pro: Publisher... aise come: 2 ates wives £89 
PUG acsateceverccesheistndetantcmeceeseaesnaceeidinis Peeniniea ts £79 S-U) PrecigiGrt oss isaceaes oe sereenss dante ceeresierenren £49 
Par, Sh ascaus autirpsaranonalenthonke haaeap cikeamaated £10 Lightning = Stara se + cacmsan erie eersrececcweans £29 
PG PaO ccsncooncenicedsacaceintaentiits Sean Vadpbansbicnrn dap £80 =SP0CiA) migaes aim minvermniganws woe 
Psion Printer Installer/Configurator............:0c2000 £6 EG Qe reccicrsin wnsntsco ns astesyeds Rorescensiiies £29 
PAGO YEP ccccsncazcsectanccisadsnaahnadectesaaderan ds Gabvaad eerie £20 TURE GOA yeedecentecen iocctniorvenhindin certs £13 
SE DDI Tee sscslaseachoaienwobundiin Eaboancudaesoicvca nal GRASS EERE £20 GBRTIAGE DOGG seis aisscc et sfecreecesvcannvien inaseatnne ea £13 
Su perBASiGG-PORT ...nn.-ica mmnap carne aoe £79 ATER DE Vi ti iceronsenreceect ovine unevetcd nvaisSauesuneiaenes £20 
Toolkit library modules Archive v.2.38, Quill/Easel/Abacus v v.2.35 (on 
Turbo and TK2 46h): sis asstiec saors meerenes ses £30 your Cartridge/dISC)......eceeeeeees .. £5 each 
BuperBAS IG Monitor as conc sconcaos semzarureesonesteers £10 King James Bible and Pia clotted neesislrs £45 
Te TD sistas inns.ain os se cneey meagre aeseinn wanersi ese eeence ce £10 
Trading ACCOUNUS a scsec ccrceseviceie cs ureryzeerinevaoan £125 : 
et eee gee een ntlaion £20 oie See ae 
SE ROM a gua acer eae date veg rem oenresed ele caaivae wana £25 
Tailor-made systems a speciality 
HARDWARE 
Miracle Monitors — prices on application 
40MB Hare Dis iscs ox cess wera ceaxieescserncsracowieee £450 
Trump Card =768K « sesrcoisrecsssnvvesnses ceuvearvensens £249 STAR printers mono, colour, 9 pin, 24 pin 
Tretimp Card —B12 Ko scars isesseveswevervecasnensorsncies £199 At competitive prices 
TRUS CARA 2 DB K os tase car pracarncacvntcttestuticeeaees £129 
Trump Card —768K with twin 3.5in. disc drives. £425 ; 
Trump Card—512K with twin 3.5in. disc drives. £349 Introducing the NEW LC-10 I....................08 £265 
Trump Card—256K with twin 3.5in. disc drives. £299 
Zero Trump Card— Discard ..........2.. cece £100 Archive and Utility Packages — 
Twin 3.51. dist CriVeS.........:.10.ccccceenereteneneneenees £181 Details inside QL World 


Write or phone with order — payment by ACCESS or VISA — cheque/Eurocheque 
Prices incl VAT & UK pecs al All orders subject to PDOL’s Sale Conditions 


